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Preface 


Who can use this book? 


* A first-time computer buyer eager to learn the fundamentals of 
computer usage and programming. 

* A games and graphics enthusiast who wants to use the high 
resolution color graphics. 

* A person who's buying up to the Timex Sinclair 2068 because of 
the advanced range of features and the competitive prices. 

* A business user attracted by the portability and 48K memory 
available. 


You may be one of these people described above or have a Timex 
Sinclair 2068 Computer for reasons of your own. No matter what the 
reason, there are both useful and exciting programs in this book for 
you to use. 

The programs are grouped into ten sections: 


1. “Five Easy Pieces” are short, easy to enter programs designed 
to acquaint you with the Timex Sinclair, and introduce you to its 
character set, color, sound, and timing functions. 

2. “Play It Sam” takes you into the world of computer games— 
moving graphics, arcade games as well as more sedate intellectual 
exercises. 

3. “Not Just Your Plaything” is the other side of the coin. Se- 
rious applications including, of course, business programs. 

4. “Down Memory Lane” is for the computer enthusiast, and is 
a collection of programs investigating the contents of the Timex 
Sinclair’s memory. 

5. “The Very Pulse of the Machine” is a selection of machine 
code routines. As well as mnemonic and decimal listings, each 
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routine is accompanied by a Basic program enabling the code to be 
loaded very simply. 

6. From the sublime to the ridiculous, "Interlude" is a collection 
of utterly trivial programs to keep you entertained for minutes on 
end. 

7. "A Matter of Routine" does not consist of programs at all, but 
of subroutines which you can adapt for use in programs of your 
own. 

8. "Art for Art's Sake" is just that. Pictures and sound for your 
enjoyment. 

9. "Under the Spreading Chestnut Tree" is a rather derogatory 
title for a collection of computer classics (well all right then, “chest- 
nuts"), without which no program library would be complete. 

10. Finally, you didn't think I would leave out the "Space" 
games, did you? These are in the last section “Play It Again Sam." 


М.В. All of the programs will run in 16K, except “Invoicing,” “Sales 
Ledger", and machine code "Pages" which require 48K. 


LISTING CONVENTIONS 


The following table has been printed using a PET dot matrix printer, 
the same as the one which was used for the program listings. 

Toavoid errors when keying in the programs, please ensure that 
you can distinguish between these characters: 


Humber one 

Ueber case letter 
Lower case letter 
Humber zero 
Upper case letter 
Lower case letter 
Lower case letter 
Lower case letter 
Brackets 

Less than; greater than 

The “null string” (Two consecutive auotation marks) 
Quote; space; uote 


Toon rH 


` 


॥॥॥॥॥॥॥॥॥॥ 
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On the rare occasions where a string of two or more spaces is 
required, a REM statement has been included to indicate the num- 
ber of spaces (if this is critical). All graphics characters (including 
User Defined Graphics) have been obtained by using the appropri- 
ate CHR$ command, so there are no strange graphics to decipher in 
the listings. 
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All variable names have been listed in lower case. All keywords 
are in upper case. 


All programs contain a line number 9000, which is usually in the 
form: 


9000 SAVE "TITLE" LINE 0 


When you have keyed in a program, enter GO TO 9000 and it 
will be SAVEd in such a way that it will “auto run” when LOADed. 


1 
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Five Easy 
Pieces 


Ш LARGE CHARACTERS 
Ш CHR TEST 

₪ ATTR TABLE 

Ш PIANO 

Ш CLOCK 
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LARGE CHARACTERS 


The first two programs are both concerned with investigating the 
Timex Sinclair Character Set. 

The entire Character Set, which is listed in the Timex Sinclair 
manual, can be divided into five sections: 


CHR$ 0 to CHR$ 31: Control Characters. These are not 
characters in the everyday sense of the word, as they are not 
themselves printed on the screen. They affect such things as 
the color and TAB position of the next character which is to be 
printed. 


CHRS 32 to CHR$ 127: "Normal" Characters. With the 
exception of the English pound symbol, this is the famous 
ASCII character set which is used by most personal compu- 
ters. 


CHR$ 128 to CHR$ 143: Sinclair Graphics. 
СНН% 144 to CHR$ 164: User Defined Graphics. 


CHR$ 165 to CHR$ 255: “Composite” Characters. 
Keywords, etc., which all have a specific function, but which 
are represented on screen by a combination of two or more 
"normal" characters. 


The first program considers just the “normal” part of the charac- 
ter set, and examines how the characters are stored in ROM by 
printing each character 64 times its usual size. 

The characters are stored in ROM at an address pointed to by the 
System Variable CHARS (see line 10), and are stored in exactly the 
same way as User Defined Graphics, i.e., eight bytes defining the 
pixel-pattern of each character. 

These eight bytes are identified in line 25, and converted to 
binary form (BITs) in line 40. Each BIT, which would normally be 
used to signify that a single pixel is to be plotted or not-plotted, is then 
used to print an ENTIRE CHARACTER; either a black square (CHR$ 
143) if the bit=1 or a white square (CHR$ 144) if the bit=0. 

The purpose of the User Defined Graphic character in this pro- 
gram is tocreatea grid so that you cansee exactly how each character 
is formed. You might find it useful when designing your own 
characters to study exactly how Timex Sinclair designed theirs. 


Five Easy Pieces 


LARGE CHARACTERS 


5 RESTORE : FOR 3=@ TO 7: READ a: POKE USR 


65 


CHR$ 144%3,а: NEXT j 

LET с-РЕЕК 23606%256ЖРЕЕК 23607%256 

FOR 3-0 TO 95: CLS : PRINT AT 4,20; "CHR ";j+32;" "; 
CHR <3%322 

FOR ੦=8 TO 7 

LET byte=PEEK (c+e+jk8) 

PRINT AT ю,15;0ч%е 

FOR 1-1 TO 8 

LET x-INT <рчфе/2): LET bit=byte-2kx: LET byte=x 

PRINT AT ю,Э-1;СНЕ% (144-bit) 

NEXT 1 

NEXT ₪ 

IF 36295 THEN PRINT AT 15. 8; "Press any key for next 
character": PAUSE @ 

NEXT 5: STOP 


188 DATA 255,129,129,129,129,129,129,255 
3888 SAVE "CHR" LINE 8 
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CHR TEST 


What better way to familiarize yourself with the Timex Sinclair 
character set than with a simple game which tests your knowledge 
of the CODE for each character. 

The program draws a highly stylized Guy Fawkes-type bomb, 
with the fuse rapidly burning away. It also prints a random charac- 
ter, and you have a few seconds to enter the correct CODE number 
to defuse the bomb. 

At first you will probably fail miserably, even with the help of 
the Timex Sinclair manual, but after a while you should find the 
game becoming easier as you gradually learn the ASCII part of the 
character set, and eventually the graphics and “composite” parts as 
well. 

(For obvious reasons, the program does not select from either the 
Control Characters or the User Defined Graphics.) 

The most interesting feature of the program is the way in which 
“inputs” are accepted: notice that the actual keyword INPUT is not 
used at all. The technique used for this is described at length in the 
“subroutines” section of this book (“A Matter of Routine”). The 
reason this technique has been adopted is that INPUT causes the 
computer to wait for the user to press ENTER before continuing 
with the program, which is clearly inappropriate in a case like this 
where a time limit for an entry is required. 

The command OVER 1 is used in the program to erase the fuse, 
one pixel at a time, (line 500), and to erase incorrect entries (line 105). 

Note: If at first you need a longer fuse, increase the value of t 
(line 25) to 15 or 20. 
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CHR TEST 


16 BORDER 6: PAPER 7: INK 2: CLS 
15 PRINT AT 15,5; "BOMB" 
26 CIRCLE 56,52,39 


25 LET t-18 
38 PLOT 56.91: DRAW 8,5: DRAW t.t: PLOT OVER 1; 
56%%,Э96%% 


35 LET x=INT (RND#2239+33 
48 IF хо-144 AND x<=164 THEN GO TO 35 
45 PRINT AT 0,8; "What is the code for: 
58 LET a$- LET a-8 
55 PAUSE 18: LET i$=INKEY$ 
66 GO SUE 588 
65 IF t=@ THEM GO TO 356 
סק‎ IF i$=CHR$ 13 THEN GO TO 188 
75 IF 1%<"@" OR i$2"9" THEN GO TO 55 
88 LET af-aftif: LET a=YAL af: PRINT AT 2,22;а%: GO TO 55 
188 IF a-x THEN GO TO 988 
185 PRINT AT 2,22; OVER 1;a$: GO TO 58 
588 DRAW OVER 1;-1,-1 
518 LET t-t-1: RETURN 
388 PRINT RT 5,11; FLASH 1;"WELL DONE!!": GO TO 1888 
958 FOR k=1 TO 2: FOR 3-8 TO 7: PAPER BORDER j: 
CLS: BEEP .@1,k#?-j: NEXT j: NEXT k: BORDER 6 
¿CHR$ xi" is: "jx 


1888 
1818 
1826 
1838 GO TO 1828 

5868 SAVE "CHR TEST" LINE 8 


6 The Timex Sinclair 2068 


ATTR TABLE 


You probably realized from your earliest experiments with the 
Timex Sinclair that some of the combinations of INK and PAPER 
colors simply do not work, Anything printed in cyan INK on magen- 
ta PAPER, for example, will appear as an unreadable blur. 

This program shows you exactly which combinations do work 
(surprisingly few of them), but it also serves a far more useful 
purpose. It tabulates the ATTRIBUTE number associated with each 
particular combination. (e.g., the aforementioned cyan INK/magen- 
ta PAPER combination has ATTR 29). 

You will find this table indispensable when writing programs 
which use the ATTR function, or when POKEing values into the 
Attributes file. 

Notice that by using the Global command BRIGHT 1 (line 10), 
and then printing everything using BRIGHT 0 (lines 30, 40 and 70), 
white characters, and even white PAPER, show up very clearly 
against a white background. 

For BRIGHT characters, add 64 to the ATTR values shown, and 
for FLASHing characters, add 128. 


ATTR TABLE 


18 BRIGHT 1: CLS: PRINT TAB 15;" PAPER "777242777 
із ерте cage 
28 FOR 3-8 TO 7 
38 PRINT AT 2,5Ж3%6; PAPER j; BRIGHT @;СНЕ% 32;CHR$ 32 
48 PRINT AT jw2+5,2; PAPER j; BRIGHT 8;СНЕ% 32 
58 FOR кей TO ? 
68 LET a$-STR$ 668356: IF LEN a$-1 THEN LET a$-CHR$ 32+a$ 
78 PRINT PAPER j; INK ki BRIGHT 8; זה‎ J¥3+6; a$ 
88 NEXT К 
98 NEXT j 
188 STOP 
9888 SAVE "RTTR TABLE" LINE а 
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PIANO 


It is an easy matter to redefine the Timex Sinclair keyboard so that 
the keys produce different characters from those shown on them. 
You can even redefine it so that they do not produce characters at all, 
but musical notes. 

This program redefines the top row of alpha keys (QWER- 
TYUIOP) to produce the white notes of a piano (from middle C 
upwards: the easiest thing to remember is that key “E” produces 
note E), and the appropriately placed numeric keys to produce the 
black notes. 

(If you look at a real piano keyboard, you will see that Timex 
Sinclair key “3” corresponds to D#, but key “4” does not correspond 
to any black note, and is therefore undefined). 

The program works by producing a new character set in array 
a(). This is a very austere character set, consisting of no character at 
all for most keys, and the pitch values 1 to 17 for the keys shown in 
line 10. (The adjustments of +1 in lines 30 and 50 and -1 in line 60 are 
necessary because array elements begin at 1, whereas character 
codes begin at 0). 

Line 60 rejects keypresses for which there is no corresponding 
tone-value, and produces half-second BEEP for the piano keys. 


PIANO 


18 LET n#="a2u3erStéey7ui 9008" 

28 DIM a(256> 

38 FOR ісі ТО 17: LET 360025 п%(32410-3 
48 НЕХТ 3 
58 LET i-CODE IHKETf*1 

68 IF ati? THEN BEEP .5,әХ1›-1 
та GO TO 58 

3006 SAVE "PIANO" LINE 8 
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CLOCK 


The following program produces a digital clock. Lines 10 to 70 
convert hours and minutes entries into three values to be POKEd 
into the system variable FRAMES, and lines 100 to 140 perform the 
reverse operation, converting the value in FRAMES back into hours, 
minutes and seconds. 

The remainder of the program merely arranges the output for- 
mat for printing in line 180. 

The program produces a 24-hour clock. If you are old fashioned 
enough to prefer the 12-hour variety, change statement 2 of line 140 
to read: 


IF h=13 THEN LET h=1 


IMPORTANT NOTE 


If you live in a country where the frequency is 50 hertz, replace “60” 
by “50” in line 30 and line 100. 


CLOCK 


1 BORDER 6: PAPER 6: INK @: CLS 

5 DIM t$(8): LET t$(3)=":": LET t$<6P=":" 
18 INPUT "Hour ? "sh 

28 INPUT "Minute ? "jm 


NT (а/65536): POKE 23674,b 

—-bX65536 

HT ੧੦25੬) : POKE 23673.a 

P -аж256: РОКЕ 23672,5 

188 LET t-INT <(65536ЖРЕЕК 23674+256#PEEK 23673+PEEK 
23672)/68) 

118 LET h-INT ct,3600) 

126 LET ੪=੮-#੩੬8੬ 

138 LET m=INT ੧66੪2 

i48 LET s=b-m#6a: IF h=24 THEN LET h=@ 

158 LET tfi TO 22-8TR$ h: IF LEN STR$ h=1 THEN 
LET t#¢ TO 2)="6"+STR# h 

166 LET t$4 TO SO-STR$ m: IF LEN STR$ m-1 THEN 
LET t#¢4 TO 5›="@"+5ТЕ% m 

178 LET ੧੬੮ TO 3=STR$ s: IF LEN STR$ s=1 THEN 
LET ੧੮੬੯7 TO )="Q"+STR$ = 

188 PRINT AT 11,12; +% 

138 GO Т0 188 

3008 SAYE "CLOCK" LINE 8 


Five Easy Pieces 


0: What is wrong with this listing? 


2 СГЕЫЫ Багаа 
ТӨ FEL C=bEEK SJEGR+SZ2EibEEK Б 
Beas +See 
Se LOK 7=8 10 ₪ 
28 ੬੦੬ h-8 LO 5 
TO bOKE 3888G8:5-b*G*?'bEEK (C+ 


ге МЕЗІ: b 
58 bOKE ੩੨੩੪੬ ^45: bOKE SSOSS'CT 
8008 Sune „ТИЛЕБ... ГІНЕ 6 


੨੩੩੬ БЕН LECOAELA 
ааае bOKE S3e8e'G: מאסם‎ 5зе®м`е© 


А: Nothing at all. To see how it is done, turn to page 74. 
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Play It, 
Sam 


Ш PRACTICE GAME 

Ш SQUASH 

₪ FORTRESS/FORT-DATA 
Ш MINEFIELD 


₪ NB. The Space Games are all in “PLAY IT AGAIN SAM.” 
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PRACTICE GAME 


Many people seem to think that they can walk into any video arcade, 
march straight up to the latest games machine, and immediately set 
up an unbeatable high score. The irritating thing, of course, is that 
many people can do precisely that. For the rest of us, practice may 
not make perfect, but it might at least enable us to avoid making 
complete fools of ourselves when faced with an arcade game. 

This program simulates the most fundamental of all bat-and-ball 
type video games. There is no scoring, and no end to the game; you 
just have to keep trying to hit the balls which are launched at you 
constantly. 

It is not as easy as it sounds, however. Because of the no frills 
approach, the game runs faster than most games written in Basic 
(although I have retained the sound-effects: if you want the game to 
run even faster you may eliminate these as well). Also, the condi- 
tions for hitting the ball are very severe. You must make a direct hit 
with the full face of the bat; edged shots are not allowed. (This rule is 
relaxed in the next program, “Squash”, so once you have mastered 
the practice game, you should be ready to take on all comers at 
Squash). 

The structure of the program is sufficient for you to develop it 
into any of the first generation type of video game (Breakout, etc.) 

The ball coordinates (x,y) are modified by two variables: ud 
(up/down) and Ir (left/right). Each of these may take either of the 
values —1 (up, left) or +1 (down, right). Hitting a side wall reverses 
the sign of lr; hitting the top wall or the bat reverses the sign of ud. 

The bat coordinates (a, b, of which a is a constant) are modified 
by the INKEY$ routine in line 100. 

In both cases, I have used the technique of printing a space 
where the bat/ball used to be. You can, of course, use OVER 1 to 
erase the old bat/ball if you prefer. 

To enable the bat to move faster than the ball, it is merely 
necessary to call the bat movement subroutine twice for each move- 
ment of the ball (lines 30 and 45). 
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PRACTICE GAME 


5 BORDER 4: PAPER 4: BRIGHT 1: INK 9 
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CLS 

LET а=2@: LET b=15: LET w= 

LET х=й: ч=1НТ <ЕМІЖЗ12: LET ud=1: LET = 
INT SRMD#2>: IF lr=ü THEN LET lr=-1 

PRINT RT х›ч;".": IF w THEN BEEP .81,38: LET ш=@ 

GO SUE 188 

LET nx=xtud 

IF rx=ü THEM LET udz-ud: LET шті 

GO SUB 188 


=y+lr: IF ny=@ OR ny=31 THEN LET lr=-lr: 
n AND ।੧੩=੪ THEN LET u d: BEEP ,81,58 

PRINT AT x.u;CHR$ 32: LET х= LET «тты 

IF х=22 THEN BEEP . 3,8: GO TO 28 

GOTO 25 


LET w= 


188 LET reb+(INKEY$="8" AND b<315-CIHKEY$="S" AND Ь>@› 
185 IF ғ«Ор THEN PRINT AT a b;CHR£ 32: LET b=n 

118 PRINT АТ asbiCHR# 95 

115 RETURN 

3888 SAVE "PRACTICE" LINE 8 
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SQUASH 


Although it is clearly based on the previous program, this is a full 
fledged game for two players. (If you are anti-social, you may prefer 
playing your left hand against your right hand—very difficult.) 

Obviously the main differences between “Squash” and “Practice 
Game” are in the bat movement routine. To allow two bats to be 
moved independently, the INKEY$ function is patently inadequate, 
as it fails to detect any keypress when two or more keys are de- 
pressed simultaneously. The IN function, however, though slightly 
more difficult to use, has the same effect, but can identify any 
number of keys being pressed together, 

There are eight separate IN commands to read the whole 
keyboard; this program uses just two of them: 


IN 63486 to read keys 1 to 5 
IN 61438 to read keys Б to 0 


Keys 1 and 2 are used to move Player 1’s bat left and right 
respectively, and keys 9 and 0 to move Player 2/5 bat. Lines 105 and 
110 use the two IN commands in exactly the same way as INKEY$ 
(except that IN returns a NUMBER, whereas INKEY$ returns а 
STRING). The two IN commands do not interfere with each other in 
any way. IN 61438 returns a value of 253 whenever key “9” is 
pressed, and 254 whenever key “0” is pressed, regardless of any 
other keys being pressed on any other part of the keyboard. Similar- 
ly, IN 63486 returns 253 for key “2” and 254 for key”1”. (Actually, the 
absolute values returned by IN depend on other factors besides 
keypresses, namely the status of the ear socket, which is affected by 
BEEP. Therefore line 35 ensures that the numbers returned will be in 
the correct range). 

Changes to the ball movement section are less significant, and 
have been made to make the game rather more interesting than 
merely a two player version of “Practice”. 

Edged shots are now allowed (line 70), and cause the Ir variable 
to be reversed. This makes the game much easier, effectively tripling 
the size of your bat, but it also gives scope for far more skill and 
ball-positioning. 

To counteract this, the bat movement subroutine is only called 
ONCE for each ball movement. You cannot out-run the ball in this 
game, but remember that you can move your bat even when it is 
your opponent's shot. You cannot, of course, HIT your opponent's 
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ball, as the bat coordinates are held in a two element array, and lines 
75 and 80 look only at the appropriate bat when detecting a hit. 

Scores are displayed on screen, and a score of 21 by either player 
wins the game. 


SQUASH 


5 BORDER 7: PAPER 6: INK 3: CLS 


18 DIM si2): DIM ੧੯2੭: DIM ੧੯2੭: : LET b¢is=13: 
LET b(2)=17: LET s(1)= 
15 LET х=й: LET ч=1МТ 4RNDX315: : LET ю=ю+1: 


IF p=3 THEN LET ю=1 
2@ LET lr=INT CRADX3)-1: IF NOT ॥ THEN GO TO 28 
25 LET 501 
36 PRINT AT 21,0;"To ю1аъ:";ю;" SCORES: іс";з(12;ТНВ 26; 
:(5%2;"=ם"‎ IF s(15x=21 OR siziò=21 THEN GO TO 1888 
35 OUT 53486,255: OUT 61438,255 
48 PRINT RT x,ui".": IF w THEN ВЕЕР .01,30: LET ш=й 


"THEN LET ud--ud: LET ш=1 
y+lr: IF пышй OR ns-31 THEN LET lr=-lr: LET ш-і 
1 OR пх<18 THEN GO TO 85 
7੧੦ AND RBS ੧੧੩-੦੯੦੭੭=1 THEN LET ud=-ud: LET lr- 
пч-Әію): ВЕЕР .81,58: LET ю=ю+1: IF ю=3 THEN LET к-і 
75 IF nx=17+e AND nu-bie? THEN LET ud--ud: BEEP .81,58: 
LET ю=ю+1: IF ю=З THEN LET psi 
88 PRINT AT 21,8;ю 
š AT х,ч:СНЕ% 32: LET ¢: LET y=ny 
1 THEN BEEP .3.8: GO TO 15 
95 80 TO 48 
188 PRINT AT 18,b(1);CHR$ 95;AT 13,b<(2);CHR+$ 35 
LET niski 2+CIN 61438=254 AND Һ(22<312-<ІМ 61438=253 


> 
жан 63486=253 AND р(12<312-<ІН 63486-2254 
AND bil2282 
115 IF nii)-bCi? THEN GO TO 125 
128 PRINT AT 18,nC12;CHR$ SS;RT 18.bl1);CHR$ 32: 
(1 ੭੨੧੧੯] 
THEN RETURN 
138 PRINT AT 13,n(22;CHR$ Э5;НТ 19,р(22:СНБЖ 32: 
23: RETLIRH 
1888 PRINT AT 5,1; FAFER 
for rer lay" 
1885 IF IHKE"$-"r" THEN RUN 
1818 GO TO 1885 
3888 SAVE "SQUASH" LINE @ 


FLASH 1; "GAME OVER : Press Е 
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FORTRESS/FORT-DATA 


“Fortress” is more of an intellectual puzzle than a game in the 
conventional sense. It is very easy if you know the secret, and 
virtually impossible if you don’t. The Timex Sinclair, of course, 
knows the secret, and so plays very well. 

The two programs should be entered as follows: 


Key іп “FORT-DATA” 

RUN. This will establish the arrays, but you will see nothing on 
screen, except for the STOP statement report. 

Enter CONT to save а copy of “ҒОНТ-БАТА”, together with 
its arrays, on tape 

Do not enter NEW 

Simply key in “FORTRESS”, and allow the lines of “FORT- 
DATA" to be replaced by those of “FORTRESS” 

Do not enter RUN. Use GO ТО 9000 to save a сору of 
“FORTRESS” and the arrays from "FORT-DATA". This copy 
will “auto run” when LOADed, without clearing the arrays. You 
may run the program immediately, not by entering RUN, but 
by using GO TO 0. 


If you do accidentally enter RUN (or CLEAR) while keying in 
“FORTRESS”, do not worry. Simply continue keying in the pro- 
gram, then: 


Enter GO TO 9000 to save 

Enter LOAD “FORT-DATA” 

Load “ҒОНТ-БАТА” from tape, and it will “auto run,” produc- 
ing the STOP report as before 

Now enter MERGE “FORTRESS” 


Finally, enter GO TO 9000 to save another copy of “FOR- 
TRESS”, this time with the arrays intact. 


Why all this fuss? Why not just combine the programs into one? 

The reason is not to save memory, although the technique does 
achieve this, and you should bear it in mind for when you write 
longer programs. The reason it is used here is more subtle: people 
are becoming so computer literate these days that traditional prob- 
lem solving methods are being neglected. Faced with a quiz type 
program, many people would make no attempt to answer the ques- 
tions conventionally, but would merely BREAK the program and 
search through the listing for the required answers. I have seen 
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many commercial quiz programs where questions and answers are 
actually listed together in the same statement. 

The moral of this is that it is no longer adequate to idiot-proof 
you programs; you must now genius-proof them as well. 

In “Fortress”, the solution is not actually explicit in the listing, 
but the key is contained by the numbers held in array ( ). By using 
this two-program technique, it is possible to refer to this array 
without revealing its contents in the listing. 


Playing The Game 


“Fortress” can be played by two players, or one player and the 
computer. The two players are known as the ATTACKER and the 
DEFENDER. The playing board represents a castle, with 18 rooms 
(marked A to R). Each room has four exits, each one leading to a 
passage to an adjacent room. (The plan of the castle is drawn on 
screen to make this clear). The object of both players is to try and 
capture their opponent by entering the same room as him. 

There are different restrictions on the movements of the two 
players: 


The Defender may not leave the keep i.e., the triangle formed 
by rooms A, B and D. 

The Attacker may enter any room, but may not use any 
passage more than once. (Passages are deleted from the 
screen once they have been used). It is possible, therefore, 
for the Attacker to forfeit the game by becoming trapped in a 
room from which all four exits have been used. The Attacker 
always moves first. 


On the face of it, then, the Defender has a rather boring role. He 
can only wander among the three rooms of the keep, waiting for the 
Attacker to come into range. Try playing a few games against a 
friend (let him be the Defender) and you will probably beat him 
easily. Pretty soon he will want to take over the role of Attacker, so 
let him, but let the computer take over the defense. I can guarantee 
that the computer will win. 

The computer's defense at “Fortress” is infallible, and its attack, 
though beatable, is very good too. In order to win, you must play the 
Defender, and you must either have a lot of luck or adopt the same 
strategy which the computer uses in defense. I am not going to tell 
you exactly what that strategy is, but I have already told you where 
to find the key and the rest is up to you. 
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Program Notes 


The arrays created by “Fort-data” are as follows: 


р (18, 2): DATA line 1000: The PRINT AT coordinates of 
the 18 rooms of the castle 


q (18, 2): The same screen positions, converted to PLOT 
coordinates. (Array p will be used to print the room letters, and 
also the player positions. Array q will be used in DRAWing the 
connecting passages) 


с (18): DATA line 2000: work this one out for yourself. 


1$ (18, 4): DATA line 3000: The “legal moves” from each 
room at the beginning of play. This array will later be copied 
into another array m$(18, 4), and as passages are used, 
elements of m$ are replaced with asterisks (CHR$ 42). 1% 
remains unchanged ready for the next game. 


“Fortress” itself begins (at line 100) by creating two User Defined 
Graphics: CHR$ 144 for the attacker and CHR$ 145 for the defender. 
The earlier lines comprise four subroutines for: printing the board 
(lines 5 to 50), printing an error message (60), printing the attacker 
(70) and printing the defender (75). 

The four main sections of the program are: 


1000 to 1240: Attacker move (Human entry) 
2000 to 2140: Defender move (Human entry) 
8000 to 8050: Defender move (Computer) 


8500 to 8650: Attacker move (Computer) 


The four lines 500 to 530 control the sequence in which these 
sections (only two of which are required for any one game) are 
called. 


Play It, Sam 19 


FORT-DATA 


18 DIM ю(18,22: DIM ac18,25 

28 RESTORE: FOR 3-1 TO 18: READ ю(3,12,ю(3,22 

38 LET ас3,12-4%ю(3,22Ж8: LET а(1,22-172-ю(і,10%8 

48 NEXT j 

58 DIM 06182: FOR 3-1 TO 18: READ 2632: NEXT J 

68 DIM 1%018,4›: FOR 3=1 TO 18: READ 1461): NEXT j 

va STOP 

16866 DATA 1,12.1,18,3,6,3,15,3, 24, 5, 16, 5, 20, 7, 8, 7, 22: 9, 6,5, 
24,11,5,11,21,13,13, 12, 17.14, 8, 5 

8 , ,1,1 3.2 ,3 ,1 2 ,1,2 הדע 2888 

3888 DATA "ЕС : "ADEG", "ਗਿਹ", "АВЕС", "БЕСІК", 


"RDCH","BDEI", 


"CFJL CHLP", "EIMO", "HJPN", " IKQO", "LOPR", 
"MHOR "MKOR" , "HOPG" 

9888 SAVE "FORT-DATA" LINE 8 

FORTRESS 

1 GOTO 188 


5 CLS: FOR ј=1 TO 18 

18 FOR k=1 TO 4 

15 PLOT INK 4;atistld)atj.2) 

28 IF 1#¢i,k0>CHR$ (34645 THEN GO TO 35 

25 DRAM INK 4; А<СОПЕ 1$¢5.k)-64,1)-aCi,1),4¢CODE 1$63,12-64,25 
-ali 2) 

38 NEXT k 

35 NEXT j 

48 FOR ісі TO 18: PRINT AT elj.1) elj 2);CHR$ (3%64): NEXT j 

58 RETURN 

68 PRINT AT 21,0;е%: FOR 3-1 TO 188: NEXT j: PRINT RT 21,0; 
OVER 1;е%: RETURN 

76 PRINT INK 2; AT plan, 1?),riar, 22;CHR$ 144: RETURN 

75 PRINT INK 1; AT pelde, 1), p(de,2);CHR$ 145: RETURN 

188 RESTORE: FOR j=USR CHR# 144 TO USR CHR$ 145+7: 
READ a: POKE dra: NEXT j 

150 BORDER 6: PAPER 6: BRIGHT 1: INK 9: CLS 

168 DIM п%(18,42: FOR j=1 TO 18: LET п%(32-1%532: NEXT j 

178 LET аю=18: LET dp=4 

188 DIM e$i285 

198 LET u$-"": LET 9=@: RANDOMIZE 

288 CLS: PRINT TAB 11;"FORTRESS";RT 5,0;"1: 1 Player same"^^ 
"2: 2 Player same" 

218 LET i$-INKEV$: IF i$<"1" OR 1%<"2" THEN GO TO 218 

228 LET no-2: IF i$-"1" THEN GO SUB 3888 

238 GO SUB 5: GO SUB 78: GO SUB 75 

588 IF по<>108 THEN GO TO 1888 

518 GOTO 8500 

528 IF ੧੦੮੭9 THEN GO TO 2888 

538 GO TO ੩888 

1888 PRINT AT 21,0;"Rttacher move С"; INK 2;CHR$ 144; 
INK 9;"›" 

1818 IF +3 ЖЖЖЖ" THEN LET w$="DEFENDER": GO סד‎ 8 

1828 LET і$=ІНКЕТҒ 

1838 IF i$<"a" OR i$2"r" THEN 80 TO 1828 

1848 LET e#="NÜ PASSAGE" 


[continued] 
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1858 FOR j=1 TO 4 
IF mélan, 4੭੨0੬ (CODE 1%-32) THEN GO TO 1188 

Jò=CHR$ (CODE 1%-322 THEN 
LET e$="PASSAGE USED": 


1808 NEXT i 

1898 GO SUB 68: GO TO 1888 
B о=СОШЕ 1%-96 
НЕФ 42 


1128 FOR 1 Tü 4 


1138 IF mf$ínam.3j)-CHR$ Gar+64) THEN LET m#(Cnar, ji=CHR 42 
1148 НЕХТ j 


=de THEN LET w$="ATTACKER" 
: таю: IF пәк>әю THEN LET x-nae: LET ч=аю 


65, 12-a6x, 12, ੧੯੩; Da) 2) 
: ੩022੭ CHR$ Сэю+64› 


if THEN GO TO 1220 

THEN GO TO S26 

8 

i"Defender move 5"; INK 1;CHR$ 145; 
isz CHRE 13 THEN GO TO 2818 


* i$-"d" THEN GO סד‎ 8 
IN YOUR. AREA" 


E i$-36 

₪ THEN GO TO 2818 

=" DEFENDER" 
1% CHEF (аю+64› 
GO SUB 75 

$ THEN 50 TO) 2121 


° Tou will ре the RTTRCKER"^^"D: You will be 
the DEFENDER" 
i$=IHKEY$: IF 1%<> 


a" AND 1%<>"Ч" THEN GO TO 3818 


f: 2="]" AND nosiG9 THEN LET w$=" 0U" 

7018 IF no=97 OR ੧੧੧੦=188 AND w$<1)="A") THEN LET w$="I" 

IF то=2 THEN PRINT " 

REM 13 spaces 

= Play again Stop "sis 

pe" AND i$<>"s" THEN GO TO 7848 

" THEN GO TO 9999 

7878 GO TO 8 

8888 LET if=CHRF ੧੦੯੩੦੭੭%੪4#੧੦੯੩੦੭=੨੭੭ 

8818 PRINT AT 21,0; "МҮ MOVE ";1%;" (Press ENTER)" 

9828 IF INKEYS<>CHR$ 13 THEN GO TO 88੨8 

0838 PRINT AT 21.173" ": REM 6 spaces 

8848 LET i#=CHR# (CODE i#+32> 

8056 00 TO 10584510280 AND no=3?) 

₪588 LET ə=ə+1: IF ੩=1 THEM LET if=m$(aw,INT <ЕМІЖ42%12: 
GO TO ੩8818 


7020 PRINT זה‎ 21,0;u$;" MIN 
7039 PRINT " 
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2516 
8528 
8538 
੪548 
8558 
8568 
8570 
੪5੩੪੬ 
8538 
੪੬੪8 
8818 
੪੬=੪ 
8630 
8੬48 
8658 
S668 
3888 
9588 


9999 


DIM ੩642: FOR ізі TO 4 

LET pm=CODE m$lar, 12-64 

IF юп--22 THEN LET 9%31(=-38: GO TO 8608 

IF сбюпозсбвю) THEM LET 9632=15: GO TO ੩੬88 
IF emade THEN LET =: TO ੩੪88 

IF emis OR юш=4 THEM LET ੩੧੭੭=-18: GO TO 8੬88 
FOR k=1 TO 4 

IF m#(rm,k2=CHR$ 42 THEN LET я(329(32-1 


IF 962228 THEN LET k=ati> 


IF kz-38 THEN LET w$="DEFENDER": GO TO 7888 

FOR TO 4: IF 9632626 THEN NEXT j 

LET if-m#$taw,i): GO TO 8818 

SAVE "FORTRESS" LINE 160 

DATA 60. 60, 68. 126.255. 255, 68,66, 182, 255, 255, 126, 
68,68,24,24 

STOP 


21 
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MINEFIELD 


This is a deceptively simple game which does not demand quite the 
same intellectual dexterity as “Fortress,” but nevertheless requires a 
certain amount of skill to win. 

The object is to march each of your three men 27 paces across a 
minefield, using a simulated dice-throw to determine the number of 
paces to be taken each move. The mines are all clearly marked (in red 
INK; safe ground is marked in green), and apart from the two 
adjacent mines near the end, they are all evenly spaced. I told you it 
would sound simple. 

Of course, luck plays its part, as in any dice game, but the skill 
lies in selecting the correct man to move to make the best use of the 
throw. Positional play is all important, both on the minefield itself, 
and in the end game position when you have one or more men 
beyond the last two mines. 


Program Notes 


Array a() is a two dimensional array, the first dimension holding the 
position of each of the three men and the second being a FLAG 
which is set when the man is dead. 

Thus, attempting to move a dead man (a(m,2)=1), ora man who 
has arrived home (a(m,1)=28) is detected as an illegal move in line 
150. 

Line 190 also uses the second dimension of the array as a para- 
meter of FLASH, so that fora live man, the characteris printed using 
FLASH 0, and for a dead man, FLASH 1. 

Ihave not used any User Defined Graphics in the program, so 
for “man” in the above, read “asterisk.” There is plenty of scope for 
you to enhance the program with sound and graphics; realistic 
explosions, scenery etc. 
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MINEFIELD 


18 BORDER 6: PAPER 6: INK 9: CLS 
28 DIM c$¢32>: DIM af3.29: FOR j=1 TO 3: LET ас3,1251: 
NEXT j 
ЗӢ PRINT AT 4.13: FOR 3-1 TO 6: PRINT INK 4;"---"; 
ІНК 2; i: NEXT 3 
48 PRINT INK 2; ג‎ INK 4;"——"; INK ?;CHR$ 143 
5@ FOR ісі TO 3: PRINT AT 3,1; : NEXT j 
68 RANDOMIZE 
188 LET x=INT «ЕМІЖб3%1 
118 PRINT AT 18,0; "MOVE ";x;" РАСЕ"; : 
126 PRINT AT 15,08; "Which Man (1-3 
138 ig=INKEY$: IF 1%<"1" OR i#>"3" THEN GOTO 138 
146 


IF x<>1 THEN PRINT "S" 


158 2 ОЕ аст; 12=28 THEN GO TO 588 
166 10% 
ira IF юп<28 AND ю=1НТ ₪ OR юп=25 THEN LET 


IF юп228 THEN LET pn=28 

PRINT AT m.atm.12;CHRf$ 32; TAB en; FLASH afm, 2); "Ж" 
LET atm. 12=੧੧੧ 

LET ₪58: РОК TO 3: IF a£j,25» THEN LET d=d+1 
12-28 THEN LET ш=ш+1 


NEXT 3 

IF d=3 THEN PRINT AT 13,18; FLASH 1;"RLL MEN DERD!": 
iQ TO rae 

THEN PRINT AT 19,18; FLASH 1; INK 2; PAPER 7; 
Go Tü 706 

IF d<>1 THEM LET ੪੬੧੩੭ 
НЕМ PRINT RT 19,4; FLASH 1;"GAME OVER : "; 
а GO TO 8 


276 IF INKEY 
286 GO TO 188 
216) FLASH 1; "INYALID MOVE": FOR j=1 TO 28: 


8 PRINT AT 28,8;0$: GO TO 138 


& PRINT AT ¿"Press P to elas : X to stor" 
IF INKE THEN RUN 
IF ІНКЕ THEN STOP 
50 TG 8 


3888 SAVE "MINEFIELD" LINE 8 


3 
" 
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CALCULATOR 


This program will enable your Timex Sinclair to function almost as 
well as a cheap pocket calculator. The Timex Sinclair has many 
complex mathematical functions built in, as well as a very large 
number of memory locations, none of which are exploited in this 
program, so if you feel like developing it to make use of these, feel 
free to do so. Personally, 1 would rather use a pocket calculator. 


Notes On Use 


The program uses the same logic as most (cheap) pocket calculators. 
In other words, enter calculations just as you would write them on 
paper and the screen will display either your current entry (after you 
have pressed a numeric key) or the running total so far (after an 
arithmetic operator). You will also get an irritating BEEP with every 
key. 

“he only arithmetic operators the program will accept are +, —, *, 
/and =. You do not have to press SYMBOL SHIFT to obtain any of 
these or the decimal point (although it does not matter if you do). 
Also, as you probably use a computer more often than you use a 
calculator and may therefore associate the ENTER key with finality 
rather than the “equals” key, these two keys both have the same 
effect of displaying the total. 

To correct erroneous entries, you may either use key “С” (de- 
scribed below) or DELETE, which works as normal. (Not many 
calculators allow you to delete entries in this way, but all computers 
do, and I expect that it is a feature you would not like to lose). 

Key “С” acts as a dual function CLEAR (in the calculator sense, 
not the computer sense). UNSHIFTED it will act asa CLEAR ENTRY 
key, retaining the running total, and SHIFTED (using CAPS SHIFT) 
it will act as a CLEAR AND RESET key. 

Overflow errors in your entries will be detected and signaled, 
but overflow errors during a calculation will of course crash the 
program with report code 6. 

Line 2010 warrants some explanation. a$ is the current entry. If 
you press an arithmetic operator when there is no current entry, 
then the operation is performed on the current running total (r$). If 
there is no current running total, then the operation is performed on 
the previous grand total (q$). Only if there is no current entry, no 
running total and no previous grand total is the operation rejected. 
(Different pocket calculators use different logic in this respect, but 
mine is a very cheap model, and that is how mine works.) 
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CALCULATOR 

18 CLS: PRINT TAB 18; "2% Calculator" 
188 LET r$-"" 

158 LET ag="" 

288 LET s$-"mkibol"-CHR$ 13 

250 LET x: +-#/"+CHR$ 13+CHR$ 13 
1888 LET at : LET 3=@: LET 8 


1818 PAUSE 8: LET i$=IHKEY$ 

1828 FOR k-1 TO 7 

1838 IF i$-s$Ck) OR i$-x$(k) THEN GO TO 2888 

1846 

1858 " THEN GO כך‎ 8 

1060 IF i$-CHR$ 12 AND 9528 THEN LET j=j-1: LET at=at 
t TO j): GO TO 1188 

1878 IF 1% " OR i#>"3" THEN GO TO 1818 

1888 IF 3-31 THEN GO TO ੨88੪ 

1898 LET 3%=3%+1%: LET j=j+1 

1188 GO SUB 4888: PRINT a$: BEEP .81.38 

1118 GO TO 1818 

2888 LET if=x#(k>: IF 1%="." THEN 00 TO 3888 

2885 IF a$-"." THEN GO TO 1818 

2018 IF af="" THEN LET a$-rf$: IF a$-"" THEN LET a$-a$: 
IF a$-"" THEN бй TO 1888 

2828 IF r$-"" THEN LET r$-a$: LET b$-i$: PRINT RT 12.31;b$: 
BEEF .81,58: GO TO 1888 

2038 LET r$-STR$ (VAL (réthf+a$)) 

2848 LET i-LEM r$: GO SUB 4888: PRINT r$: BEEP ,85,48 

2056 LET bf-if: IF i$=CHR$ 13 THEN LET b$=CHR$ 32: 
LET $: LET r#="" 

2868 PRINT RT 12,31;b#: IF р%<> CHR$ 32 THEN BEEP .81.58 

2878 GOTO 1888 

3888 IF d THEN GO TO 1818 

3818 LET d=1: GO TO 1090 

4888 DIM c#(32-3): PRINT RT 11,@;с%;: RETURN 

5888 PRINT RT 15.14; FLASH 1; "ERROR" 

5005 LET i HKEY$ 

5818 IF i#<>"c" AND i$<>"C" THEN GO TO 5885 

5815 PRINT AT 15,14;" M 

5828 DIM 056322: PRINT RT 11.8;c$ 

5825 IF і%-"С" THEN GO TO 188 

5838 GO TO 1888 

9000 SAYE "CALC" LINE 8 
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WORD PROCESSOR 


If your Timex Sinclair is interfaced to a letter-quality printer for 
output and T/S disc drives for storage, then you may well find that 
this program does not meet all your requirements of a word proces- 
sor. If, however, you have a minimal hardware configuration of 16K 
Timex Sinclair, T/S Printer and cassette recorder, it should be more 
than adequate. 

It provides the standard features of a word processor: Input and 
Edit facilities (albeit somewhat limited, see below), tape storage and 
recall, optional right justification (i.e., alignment of the right hand 
margin), etc. 

The program will hold up to five screen-pages of text (20 lines 
each), i.e., 100 lines in total. If you have more than 16K RAM, this 
сап be increased dramatically by redimensioning w$ in line 5 and 
also making the appropriate changes to lines 1200 and 7030. (See 
Program Notes.) 


Notes On Use 


INPUT (FROM KEYBOARD) 


On running, select option “K” to enter text from the keyboard. A 
flashing cursor will appear in the current print position, i.e. the top 
left hand corner. Enter text as you would with a typewriter, and as 
you reach column 25 a BEEP will sound signifying the approaching 
end of line. You may continue typing, and a space or hyphen will 
automatically bring the cursor onto the next line. If you do not use a 
space or hyphen before column 32, a hyphen will be inserted auto- 
matically. (Sometimes this is desirable and sometimes it is not. You 
may prefer to go back and either delete the entire word, or reposi- 
tion the hyphen somewhere else. Both options are possible: see 
EDITING.) 

If you wish to start a new paragraph, the ENTER key will also 
move the cursor to the start of the next line. (Press ENTER twice if 
you like to leave a blank line between paragraphs). You may indent 
the new paragraph by one space or more, but if you require the final 
text to be right justified, use one space only. 

If you do not have 20 lines of text to enter, press "." when the 
cursor is against the left hand margin (i.e., start a new line with a full 


stop). 
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When you do this, or when you have completed 20 lines of text, 
the message: 


P= PRINT :J= JUSTIFY :C= CONT 
will appear. These options work as follows: 


PRINT: Produces an identical copy of your text on the T/S 
Printer. Returns to the same three option message, so you 
may produce as many copies as you require. 


JUSTIFY: Justifies your text ON THE SCREEN. Also refor- 
mats the text in the computer’s memory, so once justified. 
text cannot be unjustified. Returns to the same three option 
message, so you may either PRINT the justified text, or 
proceed without printing. 


CONT: Gives a further option to either enter more text, or 
save your completed text on tape. 


EDITING 


There is no separate edit mode as on some word processors. You 
may edit the text as you are compiling it (and at no other time). 
Always ensure that editing is complete before the end of each page 
is reached, as you will have no opportunity to go back at that stage. 
Use the DELETE key as normal to erase mistakes spotted immedi- 
ately; otherwise use the cursor left key (CAPS SHIFT “5”) to position 
the cursor at the required place, then simply type over the text to be 
amended. Use the cursor right key (CAPS SHIFT “8”) to return the 
cursor to the current text position. 


IMPORTANT NOTE 


When you have been amending a line at the top of the screen, you 
may be tempted to use the ENTER key to return the cursor to the 
bottom much more rapidly than by using CAPS SHIFT “8”. Howev- 
er, remember that, if you select the JUSTIFY option, lines of text 
which have been terminated automatically by the computer will be 
justified. Lines which have been terminated by your pressing EN- 
TER (normally end of paragraph or end of text lines) will not. 
Therefore, by using this method of cursor movement, effectively 
you will be telling the computer that none of these lines are to be 
justified. 
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SAVE ON TAPE 


Entry to this mode has already been explained above. You will be 
asked to give a filename to your text, and the computer will confirm 
that it is indeed being saved under this filename. (The Timex Sinclair 
will not allow filenames of more than 10 characters; so if you do 
enter a longer name, this will be truncated, and the name shown on 
screen will be the actual name under which your text is saved, and 
by which it should later be recalled.) Saving your text terminates the 
program. You may verify the operation by entering: 


VERIFY n$ DATA w$() 


If the tape fails to verifv, or if vou require a back-up copy for any 
reason, enter: 


GO TO 8030 


RECALL FROM TAPE 


Run the program and press "T". You will be asked for the appropri- 
ate filename, and the text will be loaded and printed direct to the T/S 
printer. It will be printed one page at a time, so you have the option 
to repeat pages, or continue until the text is complete, at which point 
you may repeat some or all of the text, or terminate the program. 


Program Notes 


If you want to add any further features to this word processor, the 
main sections of the program are: 


300 to 600: INPUT (lines 320 to 400= control characters) 
1000 to 1210 : PRINT option and various sub-menus 
5000 to 5300 :  Justification 

7000 to 7070 : LOAD from tape 


8000 to 8050: SAVE on tape 


The variable x is used to indicate the page number (assuming the 
first page to be numbered 0), so if you increase the maximum file 
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size, x should be allowed to reach, but not exceed, the new max- 
imum (lines 1200 and 7030). 

The current line of the current page is indicated Бу |; 1 is the 
current column position and w$ is the actual text file. So the ex- 
pression: 


(%20+1+1,/1א)%₪ 


which occurs several times in the program identifies precisely the 
correct element of w$ corresponding to the cursor position. 


WORD PROCESSOR 


5 DIM w$ti@a,32): DIM b$c325 

18 CLS: PRINT TAB 19; "2% WORDPRO":AT 5,0;"Т = LOAD TEXT FROM 
TRPE"^^"K = ENTER TEXT FROM KEYBOARD" 

15 IF INKEY$: THEN GO TO 8 

28 IF INKEY$="t" OR INKEY$="T" THEN GO TO 7੪88 

25 GO ТО 15 

108 LET х-й 

158 (15 

206 FOR i-a TO 13 

218 FOR 1-й TO 31 

388 PRINT AT 3,1; FLASH 1; OVER 1;CHR$ 32 

318 PAUSE Ø: LET i$=INKEY$ 

326 IF 1%=СНЕ% 8 AND 1¢>@ THEN LET 1=1-2: GO TO 588 

338 IF 1%=СНЕ% 8 AND j<>6 THEM PRINT AT 3. 8; w$¢x#2G+5+1,13: 
LET i=i-1: LET 1-30: GO TO 8 

348 IF i#=CHR$ 3 AND 18331 THEN GO TO 588 

358 IF 1%=СНЕ% 9 AND 36213 THEM PRINT AT 3,31; СНЕЖ ¿“CODE 
(шФ(хЖ2й%3%1,3222%19%Сш%(хЖ2043%1,322-СНК% 1353: 
LET j=j+1: LET 1-1: GO TO 588 

368 IF 1-8 AND i$-"." THEN LET 1=31: LET j=19: GO TO 548 

378 IF i#=CHR$ 12 AND 1<>@ THEM LET uw#<x*20+j+1, l)=CHRS 32: 
LET 1=1-2: GO TO 508 

388 IF i#=CHR$ 12 AND 9%28 THEM PRINT HT 13,0:и%(хЖж2й%і%1,1У: 
LET j=j-1: LET l=31: LET w#¢x#20+i+1,. D-CHR$ 32: 
LET =ן‎ : GO TO 588 

398 IF 1%=СНЕ% 13 THEM LET 1-31: GO TO 418 

488 IF i#<CHR$ 32 THEN GO TO 8 

418 IF 1=31 AND i$<>CHR# 32 AND i#<>CHR$ 13 THEN 
LET і%-СНЕ% 45 

428 BEEP .81,20%20%(1%-СНЕФ 325 

438 LET ш%(хЖ20%3%1,1%12-1% 

588 PRINT AT כ3,8:09%0%20+3+1‎ 

518 IF uf$üxXzütij-1.320-CHR£ 13 THEN PRINT AT 3,31;CHK$ 32 

528 IF 6 THEN BEEF .5,50 

S38 IF 1225 AND {іФ=СНЕФ 32 OR i$=CHR$ 452 THEM LET 1 

548 NEXT 1: BEEP ‚5,28 

888 NEXT j 

1688 FRIMT AT ₪ 

1818 IF INKE" 

1828 IF ІМКЕ 


а; "P= PRINT : 
" OF ТЫКЕ 
"P" OR INKEY 


= JUSTIFY :C= CONT" 
" THEN GO Tü 1188 
e" THEN GO TO 1656 


[continued] 
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1838 IF INKEY$="J" OR IHKET$-"j 
1848 GO TO 1818 

1856 PRINT AT zi.8;bf$: COPY: GO TO 1888 

1188 CLS: PRINT "M= More Text :5- Save" 

1118 IF INKEYÈ: OR וו‎ THEN GO TO 1288 
1128 IF INKEY$: OR IMKET$- THEN GO TO ੩888 
1138 GO TO 1118 

i288 IF THEM PRINT HT 21,8; "Но more room: Choose 
oetion": PAUSE 8: GO TO 1188 


" THEN GO SUB 5888: GO TO 1888 


1210 +1: GO TO 156 

5888 1% 

Seas ж20+1 TO хж2й+2@ 

5818 

5015 2 THEN 80 TO 5288 
зага TO 1 STEP.—1 


THEN GO TO 5835 
+1: NEXT 1: IF s THEN GO TO 5288 


5025 
5@з@ 
5035 


5848 TO 32 

5845 <>СНЕ% 32 THEN GO TO 58528 

s5050 2 TO 1+1 STEP -1: LET ੩੬੧੧੭=੩੬੧੬-17: NEXT k 
5055 жа 


5868 IF a$(320)<>CHR$ 32 THEN GO TO 51йй 

5838 NEXT 1 

5188 PRINT AT 3-xX*28-1.8; a$ 

5158 IF a$(32)=CHR$ 32 THEM LET d=d+1: GO TO 5848 

5178 LET ॥੬੧੭੭=੩੬ 

528੪ NEXT j 

5300 RETURN 

7888 INPUT "Filename ? "int 

7885 IF n$-"" THEN GO TO 7888 

7818 PRINT AT 15,0; "LOAD TAPE "ind 

7015 LOAD n DATA 05੯2 

7020 LET > 

7025 FOR +1 TO x+20: LFRINT 05੯37: NEXT j 

7030 LET x=x+20: IF 188=א‎ THEN GO TO 7055 

7035 CLS: PRINT "Press 5 to 2੯੦੪" “ "or ans other 
kes to continue" 

7848 PAUSE 8 

7845 IF IMKET$-"s" OR INKEY$= 

7858 GO TO 7025 

7855 CLS: PRINT "TEXT CUMPLETE"^^"PRESS F TO REPERT"^^ 
"OR X TO STOP " 

78੬8 IF INKEY$="R" OR IHKET: 

7065 IF IMKEw$-"X" OR INKEY 

тата GO TO 78੬8 

੪888 INPUT "Filename ? "ing 

8818 IF n$-"" THEM GO סד‎ 8 

8626 IF LEN n$218 THEN LET rf=r#ú TO 18) 

8630 PRINT “Saving as ing 

S040 SAVE nk DATA w$<) 

8856 GO TO 9939 

9888 CLEAR: SAYE "ЫР" LINE 8 

3999 STOP 


THEN GO TO 7055 
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INVOICING (48K)/SALES LEDGER (48K) 


If you run your own business then you certainly do not need me to 
tell you how tremendously useful a computer can be, particularly 
for such tasks as keeping your accounts. 

If you do not run your own business, then you will probably be 
tempted to skip these next two programs, or even jump straight to 
the next games section. But hold ona second. Have you ever written 
a program and sold copies to your friends, or submitted a listing to 
one of the computer magazines? It could be that you are already in 
business as a software producer, and if you want to avoid an 
unpleasant confrontation with the taxman, you had better start 
keeping adequate records of all your transactions. 

These two programs together form the “sales” side of what is 
usually referred to as an accountancy “suite” i.e., several programs 
which all serve independent functions, but which interact together, 
using the same data, to provide a complete set of accounts. 

Invoicing provides an actual invoice for you to give to your 
customers, and also records every transaction in a sales daybook. 
Very simply, this is a list of all your sales, consisting of the date, 
customer’s name, and amount. The total of the sales daybook 
should, therefore, represent your total business income for the 
particular period. 

Of course, unless all your sales are on a strictly cash basis, the 
fact that you have issued certain invoices does not necessarily mean 
that all those customers will actually pay you, either correctly or on 
time. Keeping track of debtors is one of the most important parts of 
any business, and you do not have to be the size of a multinational 
corporation before the whole thing gets out of hand. That is where 
the sales ledger comes in. 

This program uses the sales day book data (as compiled by 
Invoicing and referred to as INVOICES by both programs) to list 
each individual customer's account. All invoices issued are shown 
in one column, all payments made in another. If further payments 
have been received you may enter them on the appropriate ledger 
card. (Ledger card is a precomputer term, still in common use, 
meaning a particular account record.) The totals of invoices, pay- 
ments, and outstanding balance will then be shown. You may make 
hard copies of ledger cards if you wish, either for your own informa- 
tion, or for use as statements to send to the customer. 
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Notes On Use 


INVOICING 


When you LOAD the program, the first thing to appear will be a 
three-option menu (see line 110). Taking each of these options in 
turn: 


1. Produce Invoice: This will provide a list of all your 
customers to date, with a code number alongside each one. 
At the end of the list, with code number 0, will be the words 
“NEW CUSTOMER’. (Naturally, the first time you run the 
program, this will be the only item on the list.) If you have 
had a lot of customers, you may have to use the Timex 
Sinclair's scrolling facility to reach the end of the list. 


Enter the required customer code number. Numbers out of 
range will not be accepted. If you enter “0” then you will be asked to 
enter the customer's address (four lines in total; address line 1 
should of course be the customer's name or the name of his or her 
business). 

The invoice is then compiled on screen. Standard items, such as 
your address, are printed automatically; you merely have to enter: 


a) Тһе date 

b) The narrative (i.e., what goods or services the invoice is for. Be 
succinct as no more than 22 characters of any narrative will be 
printed.) 

c) The amount. 


If there is more than one item to put on the invoice, you may add 
more narratives/amounts (but do not add too many, or the top of the 
invoice will scroll off screen, before the invoice is totaled). 

You may then either copy the invoice to the T/S Printer, or cancel 
it if you have made an error. 


2. List Invoices: You do not have to do anything when you 
select this option. The computer will produce the sales 
daybook listing (direct to the T/S Printer). 


3. Save: You do not need to select this option after every 
invoice, or select it at all if you have not produced any 
invoices this run. You must, however, select it at the end of 
every run in which you have produced invoices. 


Not Just Your Plaything 35 
There are two items to save: 


a) The invoice list/sales daybook saved as a character array under the 
filename “INVOICES” 
b) An up-dated copy of the program itself, ready for the next run. 


Note: Options 1 and 2 return to the main menu after comple- 
tion. Option 3 terminates the program. To reenter the program after 
termination or after a BREAK, use GO TO 100 (NOT RUN). 


INVOICING 


18 וע‎ 4,20) 
20 LET r LET in=6 
38 DIM р%(322 
48 DIM $੧188.,3. 187 
188 BORDER 6: PAPER 6: 
118 PRINT AT 5,8; 
Invoice: 3 
128 LET i$=IHKEY$: IF if 
138 GO TO VAL 8 
588 DATA "V&H COMPUTER SERVICES" 
518 DATA "182c KINGSTON RD." 
S28 DATA "STAINES" 
538 DATA "MIDDLESEX" 
1888 BORDER 5: PAPER 5: CLS 
1818 FOR 3-1 TO nc 
1820 PRINT 3; ТАВ 4;a$6i, 15 
1838 NEXT 3 
1848 PRINT 8; TAB 4; "НЕН CUSTOMER" 
1858 INPUT "Customer number? "it 
1868 IF +<й OR ੧੨੧੧੨ OR t<>INT + THEN GO TO 1858 
1878 IF +<>@ THEN GO TO 1188 
1888 LET no=nc+1: FOR ізі TO 4: INPUT RT J#2.0.; ¿"Address 
line "9327": "афс, ју): NEXT j 
1636 LET t=nc 
1188 LET in=i 
1118 CLS: RESTORE: FOR j=@ TO 3: READ t$: PRINT AT 
J, (32-LEN t$2/2;t$: NEST j: PRINT: PRINT "INVOICE 
Na. "jiri: PRINT 
1126 INPUT "Date ";+%: LET +: 
LET с+ќіп, 2) =афсъ, 1) 
1136 PRINT TAB 31-LEN t£;t£ 
1148 FOR ізі TO 4: PRINT а%(%,10: NEXT j: PRINT”: 
LET ір-й 
1158 INPUT "Narrative ";+%: IF LEN t#>22 THEN LET 
%%-%%% TO 225 
1168 PRINT t$; 
1170 INPUT "Price "je: GO SUB 5888: IF x THEN GO TO 1176 
1188 PRINT TAB 23;m$: LET 1ю=1ю+ю 
1198 INPUT "Ars more items (YAN)? "i+ 
1288 IF +: OR t$-"v" THEN GO TO 1158 
1216 IF + " QR t$="N" THEN GO TO 1238 
1228 GO To 1190 


: ਵਕ 
woice"'^^"2: List 


"1" OR i$2"3" THEM GO TO 128 


[continued] 


36 


1238 
1248 
1258 
1266 


1270 
1286 
2688 
2818 
2626 
2838 
2848 
2858 
2858 
2076 
3888 
3818 


3026 
3838 


3848 
3858 
5888 
9888 


PRINT AT 20.0; 
PRINT THB 23; 
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"TOTAL"; : LET ю=їю: GO SUB 5888 


PRINT AT 21,0;"C= COPY :&= CANC." 


IF INKEY$="c" OR INKEY$: 


COPY : LET c$Cin.35- 


"C" THEN PRINT AT 21,0;6%: 


IF INKEVY$-"x" OR INKEY$="X" THEN GO TO 1118 
GO TO 1268 
CLS: LET к=й: FOR j=1 TO in 


FOR 1 


TO 3 


LPRINT :כ‎ 
NEXT k: LPRINT: LET e=e+YAL c$<3j3,3) 


LPRINT "TOTAL"; TAB 28; 

GO SUB 5888: LPRINT mf 

GO TO 188 

BORDER 4: PAPER 4: CLS 

PRINT "First SAYE invoice list for"^^"SRLES 
LEDGER program" 

SAYE "INVOICES" DATA c#<> 

CLS: PRINT "Now SAYE entire rrosram"”” "(For use 
as INVOICING rrosram"^'"next time)" 

SAYE "INVOICING" LINE 188 

GO TO 9999 

REM insert "CASH" subroutine (see text) 


NEXT j 


LPRINT : 


CLEAR : 


SAVE 


"INVOICING" LINE 8 
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SALES LEDGER 


This program is SEQUENTIAL rather than MENU DRIVEN. Sim- 
ply follow the instructions as they appear. 

First load the latest INVOICES tape. The first ledger card will 
then be printed on screen. The first time you run the program the 
PAYMENTS column will of course be empty. 

You will be asked if you wish to post (i.e. enter; more precompu- 
ter terminology) a payment. If you do, you must enter the date (of 
payment) and the amount, and the question will be repeated, allow- 
ing you to post further payments if necessary. When you have 
finished, the account is totaled, and you may either copy the ledger 
card to the T/S Printer, or proceed to the next account. 

At the end of the run, the total outstanding (all accounts) will be 
displayed and you will be asked to save an up-dated copy of the 
program for next time. (Not strictly necessary if you have not posted 
any new payments, but a good habit to get into nevertheless, as very 
often by the end of a run you may have forgotten whether you have 
posted any payments or not.) 


IMPORTANT NOTE 


Always use the latest copy of each program when you begin a run. 
The master program itself contains no data, but every time you 
SAVE a copy, the current data is saved along with the program. 


SALES LEDGER 


8+ ו 18 

28 LET пю=й 

за DIM 046322 

48 LET tos=@ 

188 BORDER 6: PAPER 6: INK 9: CLS 

118 PRINT "Please LOAD your INVOICES tare” 

128 LOAD "INYOICES" DATA c#<> 

5@@ FOR а=1 TO 108: CLS 

51@ LET ә%-с%(а,22 

520 LET c#(a,29="x" 

S38 IF a$=b# TO 16) THEN LET a=100: GO TO 238 
548 IF ag="x"+b¢¢ TO 92 THEN GO TO ₪ 

550 PRINT TAB 12;a$ 

568 PRINT "DATE"; TAB 18: "INVOICES"; TAB 28; "PAYMENTS" 
578 LET t-VRL c#¢a,3> 

588 PRINT ੦੬੧੧, 12; ਠ$੯੧-37 

538 FOR k-1 TO 8 


[continued] 
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੬88 IF c#(k,2)<>ae THEN GO TO ੬48 
618 LET t=t+VAL c$tk.3) 

628 PRINT с, 1੭; 2੬੧੬: 3) 

630 LET o$ck, 22 


Һ%% TO 92 THEN GO TO 660 
$< TO 182 THEN LET =188 


Í? k=1 TO ne 

718 IF e$fik,2)XDdaf THEN GO TO 746 
720 LET ti-ti-VRL pk, 35 
738 PRINT ੦੬੯੬. 19; TAB 28;ef0k, 3 
748 NEXT К 
758 INPUT "POST A PAYMENT Y/N)? "itf 
768 IF + OR +$="N" THEN GO TO ੩58 
778 IF > ОЕ t$=""" THEN GO TO 738 
788 GO TO 758 
ТЭЙ LET :1+מה=פה‎ INPUT "Date ";юФспю, 12: PRINT etre. 19; 
868 INPUT “Amount “je: GO SUE 5888: IF x THEN GO TO 8 
818 PRINT TAB 28;0$: LET pcre 335m? LET еспе, Z)=zaf 
828 LET ti=ti+YAL mf 
838 GO TO 750 
858 PRINT "TOTAL"; TAB 18; 
866 LET ю=+: GO SUB 8 
870 PRINT m$;TAB 28; 
880 LET к=+1: GO SUB ₪ 
838 PRINT m$ 
388 LET £=੧੧107 cCt*1885*.12-CIMT cti#188:+. 199-168: 

GO SUB 8 
918 PRINT "OS"; TAB 18;0%: LET tos=tos+YAL m$ 
928 PRINT AT 2 i"C= COPY : NEXT " 
938 IF INKEY$="c" OR INKEY$="C" THEN PRINT AT 21,0%: 

COPY: GO TO 328 
948 IF INKEY$="n" OR INKEY$="N" THEN GO TO 8 
958 GO TO 8 
998 NEXT а 
1888 BORDER 4: PAPER 4: CLS 
1818 LET ю=+о=: GO SUB 5888 


1828 PRINT "TOTAL OUTSTANDING: "057 
1838 PRINT "Nou SAVE fdr use as SALES" ^ ^ "ir. osram 
next time" 


1040 SAVE "SALES" LINE 38: GO TO 3333 
5888 REM insert "CASH" subroutine (see text) 
3888 CLEAR : SAVE "SALES" LINE 8 
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Program Notes 


The first thing to notice about both programs is that neither of the 
listings include the very important subroutine at line 5000. Do not 
worry, you do not have to pay extra for this. It is just such an 
incredibly useful subroutine which will probably become part of all 
your financial programs that it has been listed separately on page 00. 

If, like normal readers, you started this book at the back, you 
may already have a copy of CASH on tape, in which case simply 
MERGE it into both these programs. Otherwise, SAVE what you 
have entered so far, enter NEW, key in CASH, SAVE it, and then 
MERGE in your current program. Do not merely key in the sub- 
routine at the end of each program, as this will mean a lot of extra 
typing, and you still will not have a separate copy of CASH for 
future use. 

The most likely problem you may encounter with these pro- 
grams is that the TV screen may be just too small for the amount of 
information you need to display. Invoices with more than 6 lines of 
narrative, or ledger cards with more than 18 transactions, for in- 
stance. For most very small businesses, this will not occur, but if it 
does happen in your case, the easiest remedy is to dispense with the 
TV display completely, except for option prompts and INPUT lines. 
Change all other PRINT statements to LPRINT, and compile in- 
voices/ledger cards directly onto the printer. (Delete the COPY 
instructions.) 

The principal data arrays used are as follows: 


a$ (100,4,20) : Мате and address file : INVOICING only 
p$ (100,3,10) : Payments : SALES LEDGER only 
c$ (100,3,10) : Invoices : Both programs 
The three elements of both p$ and c$ (second dimension) are: 
c$(j1): date 
c$(j,2): сору of address line 1 (name) from customer file 
c$ (13) : amount 


IN is a VARIABLE NAME (for invoice number), and should not 
be confused with the Timex Sinclair keyword IN. 

The DATA lines (500 to 530 of INVOICING) should, of course, 
contain your own name and address. 
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BIORHYTHMS 


What, you may ask, is “Biorhythms” doing in the “Serious Applica- 
tions” section, alongside such undeniably serious programs as “In- 
voicing” and “Sales Ledger”? 

I will leave aside the controversial question of whether the study 
of biorhythms is, in itself, a serious business or just a harmless bit of 
fun. Suffice it to say that serious application does not necessarily 
mean business application, and there is a whole spectrum of uses to 
which you can put your computer. It does not have to be “either 
accountancy or games.” 

This program will plot three separate biocharts (Physical, Emo- 
tional and Intellectual cycles) for a period of about four months from 
any date you choose. 

The actual plotting routine is confined to the three lines 220 to 
240. All the rest is concerned with such mundane matters as: 


User INPUT : lines 30 to 90 
Drawing the graph baselines : line 210 


Inserting the baseline scale: lines 300 to 330: Each mark 
on the baseline represents the first of the month; hence the 
slightly uneven calibration of the scale. 


INPUT verification : lines 1000 to 1100 (no less than 
eleven lines to ensure that you have entered a valid date). 
This routine may be lifted piecemeal for use in other prog- 
rams: for instance, both “Invoicing” and “Sales Ledger” 
allowed you to enter absolutely anything in response to the 
“Date ?” prompt. You might like to add this date verification 
routine to those or to other programs of your own. 


Calculation of the number of days between your entered 
date and some hypothetical base date (year zero): 

Lines 1500 to 1550 : The actual base date is unimportant 
as the program merely has to calculate the number of days 
between the two dates you enter. 


Not Just Your Plaything 41 


BIORHYTHMS 


10 BORDER 6: PAPER 6: INK 9: BRIGHT 1: CLS 

28 LET m$-"303232332323" 

38 PRINT TAB 11;"BIORHVTHM"^^^^^"Please enter dates in 
the form:"^^^TRB 11; "DD. MM. P?" 

48 INPUT "Enter sour date of birth ";d$ 

58 GO SUB 1000: IF x THEN GO TO 48 

68 LET b-n: LET b$-d$ 

7@ INPUT "Enter TODAY’s date ";d$ 

88 GO SUB 1888: IF x THEN GO TO 78 

90 LET n-n-b: IF n<@ THEN GO SUB 2888: GO TO 7@ 

108 DIM :(%63,12ה‎ LET n$(1è="Phusical": LET n$(2)= 
"Emotional": LET n$(3)="Intellectusl" 

118 DIM b(3): DIM 2632 


8+5ж 
140 LET GI דנ‎ ੧੧66373 
158 NEXT 3 
288 CLS: PRINT TAB 11;"BIOCHART"”““"D.O.B. : ":6#. "Todas: "j d$ 
218 FOR ј=1 TO 3: PLOT 0,3%48-28: DRAW 255.8: PRINT INK j; 
ВТ 5%6-2,2;ө%(32: NEXT j 
228 FOR 3-1 TO 3: FOR k-8 TO 255 
238 PLOT INK jik SIN ੧(੧੭੧2#ਟ੧43222%੮1:6੧472 #2046 ੧4-7 848-28) 
24@ NEXT К: NEXT 3 
388 FOR 53-9 TO 255 
316 LET d=d+.5 
328 IF d>CODE m$<m>-26 THEN LET d=.5: FOR k-1 TO 3: 
PLOT jokòk48-3Q: DRAW 8.5: NEXT k: LET m=m+1: 
IF ю>12 THEN LET m=1 
330 NEXT J 
348 STOP 
1888 LET хай: PRINT AT 15,10; " ": REM 12 sraces 
1010 IF LEN d$<>8 THEN GO ТО 2888 
1020 IF d$¢3><>"." OR d$¢6><>"." THEN GO TO 2688 
1838 FOR j=1 TO 7 STEP 3 
1040 IF d$<j><"@" OR d$Cjo2"2" OR +1 " OR d$(j+1)>"9" 
THEN GO TO 2888 
1050 NEXT 3 
1868 LET y=VAL d$(? TO >: LET m-VRL ੬੯੫ TO 5): LET ੫੨੪੧ 
déc TO 25 
1070 IF ө-й OR d-8 OR m-8 OR m>12 THEN GO TO 2888 
1088 LET :8=ן‎ IF s/4-INT 4/4 THEN LET 151 
1090 LET n=CODE m$cmò-26+(m=2 AND 1-15 
1108 IF d>n THEN GO TO 2888 
1588 LET п-й 
1518 FOR 3-1 TO m-1 
1526 LET n-n*CODE ו‎ 8 
1538 NEXT 3 
1548 IF 1-1 AND n259 THEN LET n-n*l 
1550 LET n-n*d*INT (385. 25#੯੩-127: RETURN 
2000 LET x-1 
2818 PRINT INK 2; FLASH 1; RT 15.18;"IHVRLID DATE": RETURN 
9000 SRVE"BIORHYTHMS" LINE 8 


E 


Down 
Memory Lane 


DOWN MEMORY LANE 
READER 1 

READER 2 

TRACE 

RENUMBER 

CASE SWAP 

VARS 
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DOWN MEMORY LANE 


The purpose of the programs in this section is to investigate part of 
the RAM area of the Timex Sinclair’s memory. 

You will see from the Timex Sinclair manual that the RAM is far 
from empty, even when the computer is first switched on. If you 
have a 16K Timex Sinclair then you might be shocked to discover 
that some 6K are occupied by the Display File, and another 1K by the 
Attributes File and System Variables, leaving only 9K of user mem- 
ory for your programs. 

However, the area of RAM on which I am going to concentrate is 
empty at switch on, and is the area between PROG and E-LINE. i.e. 
the area in which your program and variables will eventually be 
stored. 

To find the boundaries of this area, enter the following three 
lines as COMMANDS (not as a program): 

To find PROG, the address of the start of the program area: 


PRINT PEEK 23635+256*PEEK 23636 


To find VARS, the address of the boundary between the prog- 
ram and its variables: 


PRINT PEEK 23627+256*PEEK 23628 
To find E-LINE, the address of the end of the variable area: 
PRINT PEEK 23641+25G6*PEEK 23642 


You will find that the first two commands give the same result, 
and that the third gives a result just one higher (as the variable area 
always contains a byte CHR$ 118 (80h) to signify its end). 

This means that the program, and its variables, occupy a total of 
one byte between them, which is hardly surprising as you have not 
got a program entered at this stage. 

Now enter the same three lines, this time as a program (i.e., give 
them line numbers, say 10, 20 and 30), and then RUN. 

This time, PROG will remain the same, but VARS and E-LINE 
will each have increased by 123 bytes, meaning that your short, 
three line program is occupying 123 bytes of RAM. E-LINE will still 
be only one byte above VARS, as your program has not used any 
variables. 

Finally, edit the three program lines, replacing PRINT by LET 
a=, LET b=, and LET c=, and add a fourth line: 


40 PRINT a'b'c 
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This will increase the program length to 140 bytes, and also the 
variable area to 13 bytes. 

Obviously, you may think, the variable area now contains 
values for a, b and c, and these are occupying the extra 12 bytes. 
Wrong! 

Look at the third line of your program again. The expression on 
the right of the equals sign (PEEK the system variable E-LINE) is 
evaluated first, and then the variable c is set equal to this value. So, 
at the time you actually find the end of the variable area, it only 
contains a and b, c has not yet been assigned. 

RUN the program again, and when it has finished, enter GO TO 
0 (to re-run without clearing the variables). Now you will see the 
true address of E-LINE, 6 bytes higher than before, i.e., the variable 
area occupies a total of 19 bytes; 6 each for the three variables, and 
one for the CHR$ 118. 

Well, now that you know where the Timex Sinclair will store your 
program and variables, let’s put some real programs there and find 
out exactly what it does store. 


READER 1 


We know where a program is stored in the Timex Sinclair’s memory: 
in the area between PROG and VARS; and we can find the actual 
addresses of PROG and VARS by PEEKing the appropriate system 
variables. Therefore, by PEEKing all the addresses between PROG 
and VARS, we should be able to find our program. 

Reader 1 is a general all-purpose PEEKer program which, given 
a start and finish address (in lines 10 and 15), will PEEK all the 
addresses in between. However, the program area is a logical place 
to start PEEKing, because, here at least, we know what we would 
expect to find. You would, after all, expect the program to be stored 
in exactly the same form as it was entered. (Wouldn’t you?) 

Run the program and see. (All the programs in this section, 
except “Renumber”, will work on themselves, or оп any other 
program which is in memory at the same time. So when you get 
bored with “reading” through “Reader 1”, you can MERGE another 
program, provided that there are no clashes of line number, and 
read through that as well). 

The output of the program is in three columns: column 1 lists 
every address between PROG and VARS, column 2 gives the con- 
tents of these addresses when PEEKed, and column 3 gives the 
CHARACTER represented by the peeked values. 

For any other area of memory, column 3 would not be very 
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informative, but for the program area, it is this column which should 
reveal the program exactly as it was entered. 

Of course, it doesn’t. But although there are a few mysterious 
characters, and one or two unprintables (these are not rude words, 
but color control character which would probably cause an error 
report if they were attempted to be printed), there is enough similar- 
ity between column 3 and your original program for it to be obvious- 
ly recognizable. Some of it has been stored exactly as you entered it, 
but some has been stored in a rather odd manner. 

See if you can explain what has happened, and account for the 
odd characters, before entering “Reader 2”. 


READER 1 


SESS+ESEKPEEK : 
3627%256ЖРЕЕК 236 


с}: IF с<16 OR c223 THEN PRINT 


= 


2@ LET с=РЕЕК к 
25 PRINT ei TAB 8੭22 
TAB 16;CHR# c: GO TO 35 


38 PRINT TAB 16; "Cunerintable)" 
35 LET p=eti: IF pey THEN STOP 
48 GO TO 
3686 SAVE "READER 1" LINE 8 


READER 2 


This is an amended version of the previous program, in which 
column 3 will give you your program listing exactly. (There may still 
be a few unprintables if you use color controls to make your prog- 
rams list in pretty colors; “Reader 3”, if you want to write that one 
yourself, could account for these as well.) 

As you will have seen from “Reader 1”, the main differences 
between a program in memory, and a program as entered or 
LISTed, lies in the way that numbers are stored. The Timex Sinclair 
distinguishes between line numbers and all other numbers, and 
stores them very differently. 

LINE NUMBERS (i.e. the numbers preceding each program line. 
Line numbers which follow a GO TO or a GO SUB are stored in the 
same way as other numbers.) 

Line numbers are stored as two-byte hexadecimal numbers. 
Numbers which require less than two bytes, i.e. numbers less than 
256 decimal, are stored with a leading zero. 

So, the first modification for “Reader 2" is that whenever a line 
number is encountered, two bytes of memory are converted to a 
single decimal number (see lines 20 and 25). 
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The two bytes which follow a line number are not part of your 
program listing. They are inserted by the computer to indicate the 
length (in number of bytes) of the program line, and hence act as a 
pointer to the next address which is to be treated as a line number. 

Again these two bytes represent a hexadecimal number, but, 
just to confuse you, in case you were finding all this too easy, they 
are stored in reverse order. The high order byte (i.e., the one whose 
value must be multiplied by 256 when converting to decimal) is 
stored after the low order byte. This may sound illogical, but you will 
find as you explore deeper into the Timex Sinclair’s memory, it is the 
normal way for the computer to store 2-byte numbers, and in fact it 
is LINE NUMBERS which are stored oddly. 


OTHER NUMBERS 


All other numbers are stored in the program area twice. First they 
are stored merely as characters, (e.g. 1.2 is stored as CHR$ 49;CHR$ 
46;CHR$ 50). Then, a CHR$ 14 is stored to indicate that these 
characters do in fact form a number, and then the value of the 
number is stored in the next five bytes, using either integer or 
floating point format. We shall see the difference between these two 
formats in the program “Vars”, but for the present, suffice it to say 
that whenever the character CHR$ 14 appears in the program area, 
we, and the computer, know that the next five bytes represent the 
value of a number (see line 50). 


READER 2 


18 LET ю-РЕЕК 23635%256ЖРЕЕК 23636 

15 LET v=PEEK 23627+256#PEEK 23628 

28 LET п-256ЖРЕЕК ю+РЕЕК ੯੦੭17 

25 GO SUB 100: PRINT n;TRB 21;"€ LINE ": LET ю=ю+1: 
GO SUB 188: PRINT TAB 21; "6 NUMBER": LET ю=ю+1 

38 LET le- PEEK ₪+206% PEEK ੧੪੧1੭ 

35 GO SUB 188: PRINT les TAB Zi;"( LINE ": LET ю=ю+1: 
GO SUB 188: PRINT TAB 21;"€ LENGTH": LET ю=ю+1 

48 LET 1е=ю+1е 

45 LET c=PEEK к 

58 GO SUB 100: IF c-14 THEN RESTORE : PRINT TAB 21; 
"NUMBER:": FOR 3-1 TO 5: LET ю=ю+1: GO SUB 188: 
READ n$: PRINT TAB 21;n$: NEXT 3: GO TO 65 

55 IF 0616 ОК ੦੭23 THEN PRINT TRE 16;CHR$ c: GO TO 65 

68 PRINT TAB 16; "Cunprintab le)" 

65 LET ю=ю+1: IF e-v THEN STOP 

78 IF p=le THEN GO TO 26 

75 GQ TO 45 

100 PRINT ei TAB S;FEEK ю;ТНВ 16): RETURN 

288 DATA "FIVE", "BYTE". "EQUIY.". "OF", "NUMBER" 

9888 SAVE "READER 2" LINE 8 
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TRACE 


It is very interesting to be able to read through the Timex Sinclair’s 
program area, but is it actually any use? Do the last two programs 
offer any additional facilities not provided by the Basic command, 
LIST? 

Not as they stand, perhaps, but now that we know the exact 
memory location of every part of the program, it is possible to search 
through the program area, and pinpoint the location of any particu- 
lar keyword, number, variable, or whatever. 

As itis listed here, "Trace" will locate specific variables used in a 
program, identifying the line number and statement in which they 
occur. You can easily modify the program to trace keywords or 
numbers, but I have chosen variables because you will probably find 
this most useful. (One of the commonest program bugs is caused by 
using the same variable name for two or more supposedly different 
variables.) Also, tracing variables is slightly more complex than 
tracing anything else, as variables with similar names (e.g., b, b$, be 
and ab) must be distinguished between (see lines 75 and 80). 

Some of the other pitfalls to avoid when “tracing” a particular 
item are: 


a. Bytes which form part of a line number, line length, or 
numeric value should be ignored. You saw in “Reader 1” 
that the character represented by these bytes is irrelevant 
when taken out of context, and could easily be the same as 
the character for which we are searching (see lines 35 and 
55). 


b. Anything which occurs within quotes should also be 
ignored. Obviously you will want to use words like “a” in 
PRINT or INPUT statements, without these being identi- 
fied as variable names (You have also probably found that, 
with a little keyboard manipulation, keywords like THEN 
or RUN can be used within text statements. These would 
be stored as single-byte keywords by the computer, but 
again you would not want them to be identified as 
keywords by a trace program.) This problem is avoided by 
the use of a quote flag, q in lines 35, 45, and 50. When the 
quotes are opened, q=1, and q=0 when they are closed. 
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Line 30 of the program is not necessary; it merely indicates the 
current line being “read” (just to reassure you that the program has 
not crashed between “finds”). 

As well as searching for the variable you have specified, the 
program also searches for the colon, outside quotation marks again, 
so that the statement number (c) within a line may be identified. 


TRACE 


5 INPUT "Variable to trace ";u$: LET I=LEN v$ 


18 LET ю-РЕЕК 23635+256#PEEK 23636 
15 LET v-PEEK 23627%256ЖРЕЕК 23628 
28 LET п-256ЖРЕЕК ю+РЕЕК (p+1) 

25 LET le=PEEK (ю%2)%2З6ЖРЕЕК ੧੦੭੩੭ 
38 PRINT т 


58 IF а THEN GO TO 36 

SS IF юізі4 THEN LET j=i+5: GO TO 30 

68 IF ю1=58 THEN LET 1 

65 IF riS?CODE vèti) THEN GO TO Эй 

үй FOR k=1 TO 1 

75 LET ю1=РЕЕК 1 IF 61620026 v$(k? THEN GO TO 90 

LET k=PEEK (ю%3%-12: IF k=36 OR ¢k>4? AND 
к<58› OR Ck264 AND k(91) OR 2੭9੬ AND kii23) 
THEN GO TO 98 

85 PRINT FLASH 1; INK 2; PAPER Pini: PRINT INK 9; 
TAB Si": "Jo; TAB 18;u$ 


38 NEXT j 

95 LET ю=4+ю+1е: IF e-v THEN STOP 
188 GO TO 28 

39888 SAVE "TRACE" LINE 8 
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RENUMBER 


So far in this section we have “read” through the program area of the 
Timex Sinclair’s RAM, and have pinpointed the exact memory loca- 
tions corresponding to particular elements of a Basic program. 

The next step is to actually change the contents of some of those 
memory locations; instead of merely PEEKing the program area, we 
will now POKE new values into it. It is now a Basic program which 
changes itself as it runs. Perhaps the most obvious example of this is 
a line renumbering routine. 

We have already seen how line numbers can be identified in the 
program area; they always consist of two bytes, and they are always 
followed by two further bytes which point to the next line number 
(or, in the case of the last line of a program, to VARS). So, to 
renumber a program, all that is necessary is for appropriate new 
values to be POKEd into the locations containing the original line 
numbers (not forgetting to first convert the new line numbers from 
decimal to two-byte hexadecimal—see line 8). 

Note: This method of line renumbering does not alter GO TO 
and GO SUB destinations. You must change these manually to 
match the new line numbers. For this reason, the program will not 
work on itself; hence the conditions in lines 1 and 3: the first line to 
be renumbered, and its new number, must be beyond the last line of 
the renumbering routine. There is no restriction on the last line to be 
renumbered, as the program will stop either when it reaches a line 
number beyond the one specified, or when it reaches VARS. There- 
fore, if you want to renumber an entire program, enter 9999 in 
response to the last line prompt. 


RENUMBER 

1 INPUT "First line to renumber ";+: IF +618 THEN GO TO 1 
2 INPUT "Last line to renumber "se 

3 INPUT ¿”New number for ";$;" "dir: IF r<18 THEN GO TO 3 
4 IHPUT "Stew "Ss: IF 561 THEN GO TO 4 

5 LET к=РЕЕК 23635+256#PEEK 23636: LET v=PEEK 23637+ 


256#РЕЕК 23628 

LET n=256#FEEK к+РЕЕК ¢ret+1>: LET 1=PEEK ¢ret+2>+256% 
PEEK ce+3:: IF к<+# ТНЕН GO TO 9 

IF кое or ੦੨੫ THEN LIST: STOF 

LET wi=INT ੧25੬੭: POKE pri: FOKE e+i,r-tCeix256) : 
(ЕТ к=к+= 

(ЕТ p=4+=+1: GO TO 6 

888 SAVE "РЕМИМВЕР" LIHE ñ 


т 


шш) (00-4 
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CASE SWAP 


Of course, it is not just line numbers which can be altered by 
POKEing into the program area. Any particular item can be located, 
and if it can be located, then it can also be changed. 

I will leave you to think of some of the more bizarre implications 
of this, but here is a useful routine which allows programs to be 
LISTed in either upper or lower case. 

You will have noticed that all the programs in this book have 
been listed in lower case, so that you can distinguish between 
variable names and keywords (which are always listed in upper 
case). However, if you have worked with other computers, particu- 
larly those which do not have lower case at all, or find that lower 
case letters like “m” or “1” are difficult to read, you may prefer to use 
“Case Swap” to convert listings to upper case once they have been 
entered. (Or, alternatively, to enter the programs with CAPS SHIFT 
on, and then use “Case Swap” to make them correspond exactly to 
those in the book.) 

“Case Swap” converts all lower case letters to upper case (or vice 
versa), including variable names and text. You may, if you prefer, 
use a quote flag system (as in “Ттасе”) to leave text unaltered. 

The two key lines in “Case Swap” are: 


Line 85: POKEs an upper case letter in place of a lower 
case one. 


Line 90: POKEs a lower case letter in place of an upper 
case one. 
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CASE SWAP ¿Listed in lower case) 


5 CLS: PRIHT^^"to list in lower case, press ""1""" 
PRIHT ^^"tao list in upper case, press "" 
LET i$-INKE'$ 
IF 1%=СНЕ% 1 


k$ 76 THEM LET 1-1: GO TO 35 


IF 1%=СНЕ%# 1 k$ 85 THEN LET 1-8: GO TO 35 
GO TO 15 
CLs: PRINT | FLASH 1; See EST proa amt 


DEF 
LET 
LET 
CET 
LET 
IF 7) THEN CLS: LIST : STOP 
IF Gü TQ 55 

IF юз14 THEN LET а=а+1: GO TO 55 

IF 1 THEN GO TO 38 

IF ю>=97 AND ю<=122 THEM POKE a 
IF ю>=65 AND ₪ THEM РОКЕ а„кю+З2 
LET 5=3+1: GO TO 8 

3668 ЗАМЕ "case swan" LIME 8 


2: 00 Т0 95 


CASE SWAP ‘Listed in upper case? 


5 CLS: PRINT’“"TO LIST IN LOWER CASE, PRESS ""L""" 
18 PRINT ““"TO LIST IN UPPER CASE. PRESS ""U 
15 LET I$=INKEY$ 

28 IF I$=CHR$ 188 OR I$-CHR$ 76 THEN LET L=1: GO TO 35 
25 IF I$-CHR$ 117 OR I#=CHR$ 85 THEN LET L=@: GO TO 35 
38 GO TQ 15 

35 CLS: PRINT FLASH 1; "READING THROUGH PROGRAM" 

48 DEF FN PCAN=PEEK A+25EXPEEK ੧੧੧17 

45 LET PROG=FH P< 23635) 

58 LET A=PROG-S 

55 LET A=A+S 

6@ LET Р-РЕЕК A 

65 IF ñ>=FN РС23627) THEN CLS: LIST : STOP 

78 IF Р-13 THEN GO ТО 55 

75 IF 14=ק‎ THEN LET A=A+1: GO TO 55 

SA IF L THEN GO TO 90 

37 AND P<=122 THEM РОКЕ A.P-32: GO TO 95 

AND P<=90 THEN РОКЕ H.P*32 

35 LET A=A+1: GO TO ੬8 

3668 SAVE "CASE SWAP" LINE 8 
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VARS 


By now you have probably had just about enough of the program 
area, so let’s move on to the area between VARS and E-LINE, 
known as the variable area or variable store. 

You will notice immediately that this program is considerably 
longer than any of the previous programs in this section. The reason 
for this is that variables are stored in a very concise format, and so 
decoding the bytes in the variable store is considerably more com- 
plex than decoding those in the program area. 

The byte (or bytes) containing the variable name is not simply 
stored as the CODE for that name. It also contains information as to 
the TYPE OF VARIABLE, and hence the number and format of the 
bytes which follow. The different types of variable which the Timex 
Sinclair can handle are listed below (and there are more of them than 
you might think). 


Numbers Example 
Integer variables with a single letter name a 
Integer variables with a two character name ab 
Integer variables with a multi-character name abcd 
Floating point variables with a single letter name a 
Floating point variables with a two character name ab 
Floating point variables with a multi-character name abcd 
Loop control variables a 
Numeric array a() 
Strings Example 
Undimensioned string а$ 
String array a$) 


Notice that we, the users, cannot distinguish, simply by looking 
at the variable name, between integers, floating point numbers, and 
loop control variables. We can’t, but the Timex Sinclair can. 

One thing that all variables have in common is that they must 
begin with a letter, and that lower case and upper case are not 
differentiated between. That makes only 26 possibilities (for the first 
letter of a name, at least), and any number up to 26 can be stored in 
only five bits. (Convert 26 to binary form to prove this). Therefore, 
three bits of the name-byte are available to indicate the type of 
variable. 
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You may not be used to thinking of bytes as 8-bit binary num- 
bers, but you must get into this habit if you are to understand the 
variable store. Line 30 strips the five lowest bytes (the name itself) 
off the name-byte, leaving a number in the range (decimal) 2 and 7. 
The REM statements in lines 35 to 60 indicate which type of variable 
has thus been identified, and these lines also contain a branch to the 
appropriate evaluation routine. 


Routine 100: Numbers— 
Single character name 


This routine merely calls subroutine 800, which first determines 
whether the number is an integer or floating point. The five bytes 
following the name represent the value of the variable, and are 
stored in exactly the same format as in the program area. If the first 
byte is zero, then the number is an integer, and the evaluation is 
relatively simple (line 825). Lines 850 to 870 perform the more 
complex calculation to evaluate floating point numbers. 


Routine 200: Number— 
More than one character name 


Line 200 applies the correction needed to display the first letter of 
the name. (I have used the convention of displaying all numeric 
variable names in lower case, and all strings in upper case. You 
should realize by now why this convention is purely arbitrary, and 
why the Timex Sinclair does not distinguish between the two). 
Line 230 identifies the last letter of the name (highest bit=1). 
Line 240 prints any intermediate letters. Line 260 prints the last 
letter. The routine then branches to line 100 for evaluation as before. 


Routine 300: Number arrays 


Again, line 300 applies the correction to display the array name. 
Subroutine 900 (also used for string arrays) reads the number of 
dimensions (d), the size of each dimension (el), and calculates the 
total number of elements (t). 

Subroutine 800 is then called t times, to evaluate each element in 
turn. 


Down Memory Lane 55 


Routine 400: Loop Control 


The variable store holds far more information about loop control 
variables than merely their current value. Line 410 evaluates the 
variable as normal. Lines 425 to 430 reads the limit value. Lines 435 
to 440 read the STEP. Lines 450 to 460 read the line and statement 
number of the looping line. 


Routine 500: Strings 


Line 510 reads the LENgth of the string, and lines 520 to 540 print its 
characters. 


Routine 600: String array 


This routine uses subroutine 900 to print the size of the array, and 
then merely prints the character of each element. 

This program is very long, but by using it you will gain consider- 
able insight into the way that data is stored by the computer, and the 
way in which the computer interprets that data. 

The program will work on itself, though the results may not 
always be what you would expect (remember that the contents of 
the variable store are being up-dated as the program is running). Try 
setting up some dummy variables in line 1, and investigate how 
these are stored. See what happens if you make line 1: 


1 LET x=1.123456789012345 


VARS 


5 DIM bi5) 

10 LET ю=РЕЕК 23627%256ЖРЕЕкК 23628 

26 PRINT e;TRB 6;: LET Ri=PEEK ₪ 

25 IF ю1=128 THEN PRINT TAB 7; "END OF VARIABLE AREA": STOP 
38 LET p2=INT сю12322 

35 IF ю2=3 THEN GO TO 100: REM number (sins 1е- letter name) 
40 IF ю2-5 THEN GO TO 200: REM number (multi-character name) 
45 IF p2=4 THEN GO TO 300: REM number array 

58 IF p2=7 THEN GO TO 468: REM loore control 

SS IF ю2=2 THEN GO TO 589: REM string 

68 IF ю2=6 THEN GO TO 680: REM string array 

78 STOP: REM error if this line is reached 

108 REM number: - 

185 PRINT СНК% ri; 


[continued] 
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GO SUB 888 

PRINT TAB 16;n 

LET к=ю+1: GO TO 28 

PRINT CHR$ (ri-64);: REM first letter 

LET ю=ю+1 

LET к1=РЕЕК к 

IF ₪12=128 THEN GO TO 268 

PRINT CHEF ю1;: REM middle letters (if ағы» 

GO TO 218 

PRINT СНЕ £ei-1285;: REM last letter 

50 TO 118 

PRINT CHR$ ג"%":(601-32‎ 

GO SUE 200 

FOR k=1 TO t 

GO SUB 888 

PRINT TAB 3; "element #";k;TRE 16in 

NEXT К 

LET к=ю+1: GO TO 28 

PRINT CHR (1-128; 

GO SUB 388 

PRINT TAB Э; "(LOOP)"; TAB 15;n; TAB 22; "Current" 

GO SUB ੩88 

PRINT ТАВ 16;n;TRB 25 

5 GO SUB 888 

PRINT TAB 16;niTAB 22; "STEP" 

LET I-PEEK (ю%1)%256ЖРЕЕК ੧੦੭2) : LET s=PEEK (ю+3): 
LET юк=ю+4 

455 PRINT TRE 16; l; TAB zz 

458 PRINT TAB 16:5; TAB 

465 50 To 28 

588 PRIHT CHR$ el: "$"j TRE 16; 

LET 1=РЕЕК de+l)+256#PEEK (ю+2%: LET p=p+2 


Limit 5107" 


"Line Но." 
Statement” 


1 

PEEK «ю%3); 
548 HENT Jj: PR 
558 LET ю=к+і` GO TO 28 

688 PRINT CHR$ (61-1252: "$¢"; 

605 GO SUB 8 

618 FOR k=1 TO + 

628 LET ю=ю+1 

੬38 PRINT ТАВ 3;"element #";К;ТНВ 16;CHR$ PEEK ₪ 

648 MENT k 

658 LET ю=ю+1: GO TO 28 

888 REM inteser 

੪85 FOR j=1 TO 5 

੪18 LET p=p+1: LET р<із-РЕЕК ₪ 

815 HEXT J 

$26 IF 6612 THEN GO TO 845 

825 LET n=b¢S>+256eb¢4>: IF р(22-255 THEN LET n=n-65536 
8308 RETURN 

845 REM floating point 

IF р<22<128 THEN LET m-8: ְ6ם‎ 8 
FOR 3=2 TO 5: LET n-n-bCio/256TCij-15: NEXT j 
LET kbild=bil)-125 

865 LET menkztbili) 

870 IF m THEN LET n--n 

875 RETURN 
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366 REM 
205 LET 


arrays 
ю1=РЕЕК (e+1)+2564PEEK (ю+2): LET ю=ю+3 
d-PEEK ₪: LET ю=ю+1 
: FOR j=1 TO а 
: LET *-tkel: PRINT el; 
; 
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The Very Pulse 
of the Machine 


Ш RENUMBER 

Ш COLOR RESET 

₪ PAGES—STORE AND RECALL (48K) 
Ш SCROLL—LEFT/RIGHT 
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RENUMBER 


All the programs in the previous section run very slowly. Try 
renumbering a long program with the Basic "Renumber" routine 
and it will take forever (or so it will seem). Sounds like a job for... 
MACHINE CODE. 

Here is the same routine, simplified slightly. This version re- 
numbers the entire program, in five steps. the first new line becom- 
ing line number 5. You can change the step by altering the appropri- 
ate byte of code і.е., the 17th item in the DATA statement. 

The Basic Loader program will locate the machine code, starting 
at address 32000, so to call the renumber routine, use: 


RANDOMIZE USR 32000 


When you SAVE the loader, using GO TO 9000, you will be 
asked to save both the Loader program (for your library—you will 
not actually need the Loader again) and the machine code routine 
itself. 

To LOAD the machine code at some later date, use: 


CLEAR 31999: LOAD "RENUMBER"CODE 32000 ,31 


(48k users may of course, locate this routine at a very much higher 
address. Remember that you can SAVE bytes from one address, and 
LOAD them into another, so there is no need to alter the Basic 
Loader from the version printed.) 
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RENUMBER 

Mnemonic DECIMAL code Effect 

LD HL, (23635) 42,83,92 HL=PROG 

LD 8 18 0੬=8 

LD BC, (23627) 237.75.75,92 BC=VARS 

AND ñ 167 CLEAR CARRY 

SBC HL. BC 237,66 IS HL=VARS? 

КЕТ 2 2@@ IF YES, RETURN 
ADD HL. BC 3 RESTORE VALUE OF HL 
LD 5 6,5 В=5 (STEP? 

INC ПЕ 19 INCREASE ПЕ Ет STEP 
DJNZ,-3 16,253 DE-NEM LINE NUMBER 
LD <HL),D 114 INSERT 

INC HL 35 МЕМ 

LD «HL»,.E 115 LINE HUMBER 

INC HL 35 BC 

LD C,¢HL> 78 = 

INC HL 35 LIHE 

LD ਸ. ੧੧0? 70 LEHGTH 

ADD HL. BC 9 HL=NEXT 

INC HL 35 LINE NUMBER 

JR» -25 24,231 REFEAT 


BASIC LOADER 


1 RESTORE: CLEAR 31999: LET 3 

2 READ a: IF a=9999 THEN STOP 

3 POKE disa: LET j=j+1: GO TO 2 

588 DATA 42,83,92,17,0,0,237,75,75,92,167,237,66,200.9, 
6,5,19,16,253,114,35,115,35,/78,35,78.9,35,24,231 

9888 SAVE "RENUMBER" LINE 8 

3885 SAYE "RENUMBER"CODE 32888. 31 

9999 DATA 9999 


2੪੪੪ 
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COLOR RESET 


How many times have you LISTed a program, only to find that it is 
printed in cyan INK on magenta PAPER, or worse still, black INK on 
black PAPER? 

Here is a very simple USR routine which will reset the screen 
colors to good old white BORDER, white PAPER, black INK, regard- 
less of the colors that may have been left by the program. 

As well as being useful during debugging, it might be nice to 
include this USR call at the end of your programs, so that the user 
can read your listings without suffering severe eye strain. 

All the routine does is load the two System Variables BORDER 
and ATTR P with the value 56 (which equals white BORDER, or, as 
you will remember from “ATTR Table”, black INK on white 
PAPER). 


IMPORTANT NOTE 


Here is another way to make your listings readable, without resort- 
ing to machine code: 


Enter line number 1 

Press both shifts and key “7” 

Press both shifts, hold down CAPS SHIFT and press key “0” 
Press ENTER 


Line 1 will appear as a blank line in your listing, but all subse- 
quent lines will be listed in black INK on white PAPER. 
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COLOR RESET 

Mnemonic DECIMRL code Effect 

LD BC, 4 1:72,92 BC=BORDER 

LD 8,56 62,56 S6=WHITE BORDER 
LD ‹ВС›,я 2 SET BORDER 

LD С,141 14,141 BC=23693=ATTR P 
LD ¢BC).A 2 SET PAPER, INK 
RET 281 RETURN 


BASIC LOADER 


1@ CLEAR 31999 

28 RESTORE: FOR 4=32888 TO 32009 

3@ READ a: POKE і,а: NEXT 3: STOP 
108 DATA 1,72,92,62,56,2,14,141,2,201 
9888 SAVE "RESET" LINE 8 

9005 SAVE "RESET"CODE 32888. 18 
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PAGES—STORE AND RECALL (48K) 


Some computers have a paging facility, whereby several different 
screen displays may be stored and recalled instantly. So does the 
Timex Sinclair, if you use this short machine code routine. 

“Store” copies a screen display into a reserved area of memory 
(above RAMTOP), and “Recall” simply copies it back again. You will 
notice that the two routines are almost identical, and both illustrate 
the power and speed of the LDIR instruction which is used to copy 
nearly 7000 bytes in a fraction of a second. 

The Basic program is more than just a loader; it also includes two 
subroutines which actually change the machine code program to 
point to the correct part of reserved memory for the required page. 

Subroutine 1000 will STORE screen pages at addresses 33000, 
40000, 47000 and 54000 (pages 1 to 4 respectively). Subroutine 2000 
will RECALL any one of these four pages. 

You can incorporate “Pages” into other programs, to instantly 
store and recall screen displays as required, or you can create a 
catalogue of your favorite displays. Remember that once a display 
has been loaded into reserved memory, you can delete the actual 
program which created it. and still recall the display by using GO 
SUB 2000. 

Line 9005 saves not only the machine code routines, but also the 
entire page storage area. 
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PAGES 
STORE RECALL 
Mnemonic DECIMAL code Mnemonic DECIMAL code 
LD DE.33808 17.232,128 LD DE. 4 17.8.64 
LD HL. 4 33.0,64 LD HL, 33068 33.232.128 
LD ВС,6912 1,8,27 same same 
LDIR 237,176 same same 
RET 281 same same 


LOALERZ"CALL" SUBROUTINES 


18 CLEAR 31999: LET ੩=32888: LET r-32858 

28 RESTORE: FOR 3=8 TO 11: READ a: POKE sti,a: НЕХТ j 

38 FOR i=6 TO 1 READ a: POKE r+j,a: NEXT j: STOP 

188 DATA 17. 8,64,1,.8,27,237,176,281 

28੪8 DATA 17.8.6 28,1,й,2?7,237,176,2й1 

8 INPUT "Store (1-45 "je 

: 4 THEN GO TO 1888 

NT la 2563: LET ai-a-a2X*256 


₪0+26008: LET 
2੪81 . ੩1 : POKE 3206; 
A LET n=USF: = 

RETURM 

INFUT "Recall ease no. (1-4) "je 

LET NT e: IF OR ₪24 THEN GO TO 2888 

LET az-IMT (а/256): LET al=a-az#256 
32855, שב‎ 


"CODE 32660, 38888 
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SCROLL—LEFT/RIGHT 


These two routines use the instructions RL (HL) and RR (HL) to 
rotate the screen displays, thereby creating a very attractive left or 
right scroll effect. 

The Basic program includes the loader (lines 10 to 60), and also a 
demonstration of the routine in action (lines 5 and 100 to 130). 

Notice that the limit of the FOR TO loop (lines 105 and 120) is 
eight times the number of characters to be scrolled off screen. 

The RL and RR instructions (Rotate Left and Rotate Right) have 
some close relations in machine code, and some interesting effects 
(though not scrolls) can be achieved by substituting these. (Alter the 
eighth data item in lines 50 and 60.) 


Try: 


Rotate and Carry (RLC/RRC) 

Change “22” to “6” in line 50. Change “30” to “14” in line 60. 
This creates a screen ripple as each character rotates about its own 
axis. 

Shift (SLA/SRA) 

Change “22” to “38” in line 50 or “30” to “46” in line 60. 


This creates a Venetian blind effect as each character rotates itself off 
screen. 


The Very Pulse of the Machine 


SCROLL 

LEFT RIGHT 
Mnemonic DECIMAL code Mnemonic DECIMAL CODE 
LD HL: 22527 33,255, 87 LD HL, 16384 33.0.64 
LD C,32 14,32 same same 
AND A 167 same same 
RL CHL? 203,22 RR CHL? 203,30 
DEC HL 43 INC HL 35 
DEC C 13 same same 
JRNZ,-5 32,258 same same 
LD ੧.੬੩ 62.63 LD A,88 62,88 
CP H 188 same same 
JRN2,-13 32,242 same same 
RET 201 same same 
NOP 8 
NOF 8 
LOADER/ DEMO 


5 BORDER 6: PAPER 6: INK 2: CLS 

1@ CLEAR 31999 

28 LET j=32000 

38 READ a: IF a=9999 THEN GO TO 188 

48 POKE і,а: LET ј=ј+1: GO TO 38 

58 DATA 33,255.87, 14,32, 167, 203,22. 43. 13, 32, 258, 652. 
63,188, 32, 242,201,0. 0 

੬8 הדח‎ 14,32, 167, 203, 38. 35, 13, 32, 250, 62, 
88. 188, 32, 242, 201 

108 FOR 3=1 TO 22: PRINT “awertyuiowasdfahik lzxcubnm 
123456": NEXT j 

185 FOR 3-1 סד‎ 6 

110 RANDOMIZE USR 32828 

115 NEXT j 

120 FOR j=1 TO 8%16 

125 RANDOMIZE USR 32000 

138 NEXT 3: STOP 

3889 SAYE "SCROLL" LINE 

9885 SAYE "SCROLL"CODE 32000.38 

9999 DATA 9999 


2 


Interlude 


OVERS 1 (EXPERIMENTS) 
OVERS 2 (GAME) 

PATTERNS 1 (KALEIDOSCOPE) 
PATTERNS 2 (MOIRE) 

INVERT 


69 
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OVERS 1 (EXPERIMENTS) 


There are many examples of User Defined Graphics in this book, but 
if you just want to create an odd shaped character for some reason 
there is a very easy way to do so without all that USR CHR$ 144 
business. Just use the EXCLUSIVE OR aspect of the expression 
OVER 1 to print one character on top of another, obliterating all 
points where the two characters meet. 

This program allows you to enter any two characters. Line 50 
will show you the two characters plus the strange EXCLUSIVE-OR 
character created by OVER 1. Useful, eh? In fact, you will be sur- 
prised how easy it is to create some interesting “invader” type 
characters by using this method. 


OVERS 1 


16 PRINT "EXPERIMENTS WITH "" OVER """*^ 
20 INPUT "Enter any 2 characters ‘or space to stop) "iat 
38 IF a$=CHR$ 32 THEN STOP 
40 IF LEN а%<>2 THEN GO TO 28 
50 PRINT a$(1;CHR$ 8; OVER 1ja$(2);" = ";а$с1); 
" OVER ";a$(25 
66 GO TO 28 
9000 SAVE "OVERS 1" LINE 8 
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OVERS 2 (GAME) 


The second program is a game (of sorts), designed once again, to 
help you become familiar with the implications of the OVER 1 
statement. 

Line 30 puts an incomplete row of $ signs across the center of the 
screen. 

You have control of the flashing $ sign and, using the direction 
arrow keys (5 and 8), can move this sign left and right over the 
others. 

The ultimate object of the game is to create either a complete row 
of $ signs, or a completely blank line. 

Аз ап intermediate objective, however, you might try to explain 
exactly what is happening, why some characters are erased and 
others printed, and just what control you have to affect these 
events. 


OVERS 2 


10 OVER 1: BORDER 1: PAPER 5: INK 9: CLS 
26 LET b=0 

38 FOR TO 31: PRINT AT 11,3;"%": LET j=j+RNDX3: NEXT j 
46 LET b=b+(INKEY$="8" AND bC>31>-CINKEY$="5" AND b<>@> 
58 PRINT АТ 11.b; 
68 GO TO 40 

9888 SAVE "OVERS 2" LINE 8 
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PATTERNS 1 (KALEIDOSCOPE) 


Iam sure you can think of much more useful things to do with your 
Timex Sinclair than create pretty patterns on the screen. You can’t? 
All right then, here are two programs which do just that. The first 
program creates kaleidoscope patterns. 

Line 60 plots the four symmetrical points. OVER 1 (line 10) 
means that points are unplotted as well as plotted, so the screen 
never actually fills up. 


PATTERNS 1 


18 OVER 1: RANDOMIZE 

28 BORDER ₪: PAPER @: CLS 

38 LET x=FHD#128 

48 LET ੩=00#5੪ 

INK ЕМІЖР: BRIGHT INT СЕНПЖ2› 

PLOT x.y? PLOT 255-х,ч: PLOT х,175-ч: PLOT 255-х,175-ч 
IF INKEY$="" THEN GO TO 36 

STOF 

88 SAYE "PATTERNS 1" LINE 8 
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PATTERNS 2 (MOIRE) 


“Patterns 2” create moire or interference patterns caused by the 
drawing of near-parallel lines using the OVER 1 condition. 

Note: It is difficult to create а moire program which will run 
continuously, as usually the OVER 1 statement will eventually 
cause the pattern to be deleted from the screen. By cycling through 
four patterns however, the screen is never totally cleared by this 
program. 

The INK color is changed at the end of each cycle of four patterns 
in line 20. Statement 2 of line 20 prevents the same INK color being 
repeated. 


PATTERNS 2 


: BORDER 8: PAPER ₪: INK 2: CLS 


si 
15 LET a: 
БЕТ 


IF i=a THEN GO TO 28 
288: GO SUB 188: GO SUB 188: 


5,175: DRAW х-255,-175 


“7175: PLOT 255-x,8: DRAW х-255,175 


x 
RETURH 
SAVE “PATTERNS 2" LINE 8 
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INVERT 


This program does not really belong in the silly section at all, as it 
actually illustrates a very useful feature of the Timex Sinclair. It is 
just that the example I have chosen to demonstrate this feature is 
incredibly silly. 

You might think that the Timex Sinclair will only allow 21 User 
Defined Graphics, but in fact the entire character set can be User 
Defined, so if you want to print in Greek, Russian, or even Chinese, 
you can do so. 

The technique is to alter the contents of the System Variable 
CHARS from its normal value (an address in ROM) to some other 
address (preferably above RAMTOP) where your own character 
definitions are located (see line 70). 

This new character set can be created in exactly the same way as 
all other User Defined Characters (i.e., eight bytes defining each 
character), but for this program I have cheated by making an exact 
copy of the normal Timex Sinclair character set. Well, almost an exact 
copy. Line 40 ensures that all the characters are copied upside down. 

The results are highly amusing, and might well cause some 
consternation should you (accidentally, of course), run this program 
on a friend's Timex Sinclair, or оп a display model in a shop. 

Interestingly, the fact that the computer now prints everything 
upside down (including its own report codes) does not affect its 
working in any way. You can even LOAD and run another program, 
which will work perfectly but will use the inverted characters. 

The program takes several seconds to run, but once you have 
created the new character set, you can switch between the two sets 
instantly. Use GO TO 9995 to return to the normal characters, and 
GO TO 70 for the inverted set. 


IHVERT 


5 CLEAR 29999 

16 LET c-PEEK 23606%256ЖРЕЕК 23687+256 
26 FOR 3=й TO 95 

38 FOR ю=й TO 7 

48 POKE 3@0@8@+7-ю+8ж3,РЕЕК lotr+Bki) 


5ӣ NEXT ₪ 

੬8 MEXT J 

78 POKE 23606,48: POKE 23607,116 
88 STOP 


9888 SAVE "INVERT" LINE 8 
3995 REM recovery 
9996 POKE 23606,0: РОКЕ 23607,60 
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PROBLEM 


Can you join these 16 dots with only 6 straight lines, without taking 
your pencil off the paper? 


e e ° ° 

ө ө e. ө 

ө ° ө e 

° ° ° ө 
Solution 


18 FOR x-?8 TO 168 STEP 36 

15 FOR ੪=58 TO 148 STEP 38 

28 PLOT ₪ 

25 NEXT ч: NEXT x 

38 PRINT AT 28.3;"Press any key for solution": PAUSE 8 

48 PLOT 160,140 

5@ RESTORE: FOR 3=1 TO 6: READ a.b: DRAW ask: PAUSE 20: 
NEXT 3: STOP 

108 DATA -68,8,8,-28,.90,8,-128,128,8,-158,38,38 

9888 SAYE "SOLUTION" LINE ₪ 
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INPUT 1 AND 2 


The way in which Timex Sinclair handles the command INPUT is 
different from, and in some ways inferior to, that of many compu- 
ters. 

The input prompt appears at the bottom of the screen, and as 
soon as you press ENTER, both the prompt and your entry dis- 
appear. This is not always desirable, particularly in “questionnaire” 
type programs where the user might want to look back over the 
previous questions and answers. 

“Input 1” and “Input 2” are two subroutines which each offer an 
alternative to the straightforward INPUT statement. “Input 1” 
duplicates the conventional form of INPUT found on most compu- 
ters, where the input prompt and response are postioned at a 
specified place on the screen, and remain there when the input is 
completed. 

“Input 2”, which is also known as Hangman-style input, does 
not produce a prompt, but gives a row of dashes which are replaced 
by characters as you press the keys. The input is terminated either 
by pressing ENTER or by reaching the end of the row of dashes. This 
method of input is ideal for entering data into a string array, (where 
the length is predetermined). 


IMPORTANT NOTE 


The first line of each routine merely establishes local variables for 
demonstration. If you use the routines in other programs, lines 
8000/8100 should be amended, so that: 


x and y are row and column where input is to appear. 

In “Input 1” t$ is the prompt. 

In “Input 2” t$ is the string array for which data is required. 
lis the length of the string array. 


Both routines return the user's entry in t$. 
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Program Notes 


Both routines use concatenation to compile the string t$. Each new 
value of INKEY$ is added to the end of t$ except when the key 
pressed was either ENTER (CHR$ 13), which terminates the entry, 
or DELETE (CHR$ 12), which causes the last character to be omitted 
(lines 8040 and 8130). 


INPUT 1 


8000 LET x=18: LET y=@: LET t$="Name" 

8005 PRINT AT x>w; t$ 

8010 LET y=y+2+LEN t$ 

8015 LET t$="" 

8020 IF y>31_OR y=-1 THEN LET y=31e¢y=-1>: LET x=x-1+2%(y=@) 

8025 PRINT AT х,у; FLASH 1;"?" 

8838 PAUSE 0: LET a$=INKEY$ 

8035 IF a$-CHR$ 13 AND +%<>"" THEN GO TO 8065 

8040 IF оФ-СНК% 12 AND t$<>"" THEM PRINT AT x,w;CHR$ 32: 
LET y=y-1: LET t#=t$< TO LEN t$-1): GO TO 8020 

8045 IF о%< CHR$ 32 THEN GO TO 8838 

8050 LET t$-tf*a$ 

8055 PRINT AT »x,u;a$: LET y=y+1 

8060 GO TO 8828 

8065 PRINT RT х,ч;СНК% 32: RETURN 

9000 SAVE "INPUT 1" LINE 8 


8100 LET x-5: LET n=1@: LET 1=15: DIM t$(n. l) 

8105 FOR ізі TO n: FOR k=1 TO 1 

8110 PRINT RT x*3-1,k;CHR$ 45 

8115 NEXT К: LET k=1 

8120 PAUSE 0: LET a$=INKEY$ 

8125 IF a$=CHR$ 13 AND k<>1 THEN GO TO 8158 

8130 IF a$-CHR$ 12 AND ੭1 THEN LET k=k-1: PRINT RT 
x*j-1,k;CHR$ 45: LET t$(j)=t$Cj, TO k): GO TO 8120 

8135 IF a$<CHR$ 32 THEN GO TO 8120 

8140 LET t$(J,ko-a$: PRINT AT x*ij-1,k;a$: LET k=k+1 

8145 IF К<=1 THEN GO TO 8120 

8150 NEXT J 

8155 RETURN 

3000 SAVE "INPUT 2" LINE 8 
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SORT 


This is a simple method for sorting an array of numbers into de- 
scending order (or, with minor amendments, ascending order). 

The method is a variation of the well-known bubble sort, and 
works as follows: 

There are two nested loops; the outer, j, loop determines the 
number of passes through the array. 

The inner, k, loop, compares each number in the array with the 
following number and if the second number is higher than the first, 
it swaps them over. At the end of the first pass, therefore, the 
smallest number is left as the last element of the array. 

On the next pass (NEXT j), the k loop sorts the second-lowest 
number into the second-last array element, and so on until the final 
pass, when just the first two elements are sorted. 

Lines 8200 and 8218 are not part of the “Sort” routine but are for 
demonstration. Twenty random numbers are listed on the left hand 
side of the screen, sorted, and then listed in descending order on the 
right hand side. 


5200 LET n=26: DIM atn?: FOR j=i TO n: LET atjè=INT 
CRND¥LG@GEG>: PRINT 3; TAB 5;аб20: НЕХТ j 
S FOR 321 TO n-1: FOR Еті TO r~ 
₪ IF atkòtatk+iè THEM LET t=atk>: LET atkd=atk+1): 
(ЕТ а<к+1)=+ 
੩215 NEXT К: NEXT j 
9218 FOR 1-1 TO n: PRINT AT 3-1,16;3; TRB 22;a(j): NEXT j: 
FEM «Жоғ demo оғ ly? 
S226 RETURN 
3888 SAVE "SORT" LINE 6 
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LEAGUE TABLE 


“League Table” is not actually a subroutine; it is a complete program 
in its own right, and it utilizes a moditied version of the previous 
“Sort” routine. Nevertheless, it can be included in many other 
programs where a regularly updated points table is required, e.g., 
football leagues, election results etc. 

As listed here, DATA line 8000 contains the number 22, followed 
by the twenty-two teams in the first division of an English football 
league, (except that I haven’t bothered to list them all). Whatever 
you use the program for, the DATA should always consist of a 
number, followed by that number of items. 

Line 10 READs the DATA into array t$($), but the first character 
of each element of t$ is reserved for the score for each team. 

The main part of the program contains yet another form of input 
routine—this time, any numeric keypress will be interpreted as an 
input, or the DELETE key will erase the name of the current team 
and the score of the previous team, so that this may be amended. 

The “Sort” subroutine is similar to the last program, except that 
here the first character of each element of t$ is extracted, converted 
to a number (using CODE), and then the whole array is sorted with 
reference to the relative value of these numbers. (Obviously this 
method will only work provided that it is not possible for a team to 
score more than 255 points. This is true of the English football 
league, but if higher scores are possible in your particular applica- 
tion then a two-byte number system would have to be used.) 

After the sorted data is displayed, the whole program is SAVEd 
(line 240), so that the next time it is LOADed, new scores may be 
added to the previous totals. 
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LEAGUE TABLE 


10 RESTORE 8000: READ n: DIM t$(n.14): FOR j=1 TO n: 
LET t$<j,1)=CHR$ 0: READ t$(j,2 TO 2: NEXT j 

20 DIM b$(13) 

190 CLS: PRINT "Enter points scored this week:" 

185 FOR j=1 TO n 

110 LET xsINT (434120725: LET y=16%( j=x#2) 

115 PRINT AT х,ч:%%(3,2 TO »;CHR$ 32;CHR$ 8; 

128 PAUSE 8: LET e$-INKEV$ 

125 IF e$-CHR$ 12 AND 321 THEN PRINT AT x.wb$: LET j=j-1: 
LET %%<3,12-СНК% (CODE 4%(3,12-ю): GO TO 118 

130 IF ю%<"@" OR p$>"9" THEN GO TO 120 

135 PRINT p$ 

148 LET p=YAL e$: LET %%53,12-СНК% (CODE +%63,1(+0( 

158 NEXT 3: PRINT RT 15,11; "SORTING" 

155 GO SUB 8288 

288 CLS: FOR 3-1 TO n 

205 IF 3621 THEN IF 48с1.12-%%53-1,.12 THEN GO TO 215 

210 PRINT 3; 

215 PRINT TAB 3;t$Cij,2 TO 2:С0ШЕ t$63,15 

228 NEXT J 

238 INPUT "Press ""ENTER"" ta save data “iat 

240 SAVE "LEAGUE" LINE 188 

8888 DATA 22."Arsenal"."Aston Yi 11੧੩" . . . ੬੧੦ (see text) 

$266 REM t subroutine (modified? 

8205 FOR TO n-1: FOR k=1 סז‎ n-J 

8287 LET a-CODE +#<k,12: LET b=CODE t#¢kti.1> 

8218 IF alb THEN LET af=t$ik)?: LET t#<(k)=t$<(k+1): 
LET ੧੬੯0੧] ੭=੦੬ 

8215 NEXT k: NEXT j 

8228 RETURN 

3888 SAYE "LEAGUE" LINE 8 
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CASH 


One of the most useful of all subroutines, this converts unformated 
numbers into a consistent cash format, so that they may be posi- 
tioned neatly in columns. 

When calling the subroutine, variable p should contain a num- 
ber. On return from the routine, m$ will contain the formated 
number. 

m$ will always contain a decimal point at its sixth character, so 
all numbers, even integers, will appear to be printed to two decimal 
places. 

The routine also embodies an error-trapping device (variable x). 
Whenever p could not have been a valid cash figure (i.e., had more 
than 2 places of decimals), x is set to 1, so that the main program can 
reject the figure. 

The routine does not include any demonstration data, as it is 
included in two programs in this book, “Invoicing” and “Sales 
Ledger.” However, if you want to test it, add lines: 


10 INPUT р: GO SUB 5000 
20 IF 0>א‎ THEN PRINT m$ 
30 GO TO 10 


CASH 


5066 LET х=й: DIM m$£85: LET m$=STRS ₪ 

5010 IF п%(82-СНК% 32 THEN LET m$-CHR$ S2+m$¢ TO 75: GO TO 5818 
5020 FOR 3:1 TU 8 

5030 IF m$i35oz"." THEN GO TO ੨858 

5040 NEXT J 

5050 IF 3-9 THEN LET m$=m$i4 TO 28,00" 

5060 IF j=? THEN LET m$-m$c2 TO ›+"@" 

5876 IF m$t65«2"." THEN LET x=1 

5080 RETURN 

9686 SRVE "CASH" LINE 8 
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LOCATE A RECORD 


This is an essential subroutine for any database type of program. 

Line 8500, which is the usual demonstration only line, allows 
you to set up a mini-database of ten records and fifteen fields per 
record. The actual size of the database is irrelevant as all you are 
asked to enter in line 8500 is the first field (keyfield) for each record. 

The routine asks you to enter the name of the record you want to 
examine, and then searches through all the keyfields until it finds 
that name. Nothing very clever about that . . . but what makes the 
routine useful is that if you only enter part of a name (e.g., if you 
enter just one or two letters, or even a space), it will search for any 
keyfields which contain these characters. 

For example, imagine you have set up a file of information 
concerning various computers. Your keyfields would consist of 
names like “Timex Sinclair”, “Commodore”, “Apple”, “Atari” etc. 

Months later, when you want to examine the file, you will 
probably have forgotten whether your Timex Sinclair information is 
filed under “Timex Sinclair”, “T/S”, or “Timex”. It doesn’t matter: 
just enter “S” and then “T”, and the routine will find it. 

And is “Commodore” spelled with one or two m’s? Who cares: 
just enter “Com”. 

But what if you enter “A”? Will the routine find “Apple” or 
" Atari"? 

It will find which ever comes first, but it will also ask you to 
verify that it has located the correct record. So if it finds “Apple” and 
you wanted " Atari", just enter "n" and it will continue searching. 

If the routine fails to find a match for your entry, the message 
"Record not found" appears, and you are asked to enter another. 

Тір: Itis advisable to ensure that all your keyfields contain at least 
one common character, e.g., a space or a full stop. Then, if youenter 
this character in response to the locate-a-record inquiry, it will find 
every record in turn, thus acting as a directory for your database. 
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LOCATE A RECORD 


8588 


8518 
8528 
8538 
8548 
੪55੪ 
8568 
8578 
5600 
੪੬18 
8626 
8636 
8640 
2000 


85 


LET п=10: DIM ажсп, 15,15): FOR j=1 TO n: INPUT a$tji.1): 


NEXT 3 
INPUT "Name of record "itt 


IF t$-"" THEN GO TO 8516 

FOR Tü n 

FOR k=1 ТО 15-LEN +% 

IF a$63.1,k TO k+LEH t$-1)=t$ THEN GO TO 8600 


NEXT К: NEXT 3 


PRINT FLASH 1; "RECORD NOT FOUND": 


PRINT "FOUND "3.12 

INPUT "Correct tren) ? "jas 

IF a THEN GO TO 8560 
THEN RETURN 

GO Т0 8੬18 


SAVE "LOCATE" LINE 8 


GO TO 8510 
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Art for 
Art’s Sake 


Ш MARILYN 

Ш PAINTING BY NUMBERS 
Ш STARS AND STRIPES 

Ш TUNE1 AND 2 
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MARILYN 


This program may take quite a while to key-in, but it is well worth 
the effort. It is a superb demonstration of Sinclair color graphics— 
not a line drawing or caricature, but a complete full color screen 
portrait. 

And I do mean Sinclair graphics—the picture is composed en- 
tirely of the eight standard graphics characters; there are no high 
resolution plots or User Detined Graphics. 

Only eight graphic characters? True, CHR$ 128 to CHR$ 143 all 
represent graphics, but eight of these are merely the inverse of the 
others. As the program defines PAPER and INK colors for each 
character, the concept or inverse has no meaning, and so CHR$ 136 
to CHR$ 143 are not needed. (In fact, CHR$ 128 is not needed either, 
it being exactly the same as SPACE, CHR$ 32, so the picture only 
really uses seven graphics characters, plus space). 

The first stage in the creation of the program was that the 
portrait was drewn onto graph paper. Transferring this to the screen 
required two further operations: 


a. Setting up an array containing the relevant graphic characters. 
b. Adding the colors by POKEing the attributes file. 


The Array 


There are 704 character positions on the screen, so a$() is a 704 
element array, each element corresponding to a particular screen 
position. In other words when it is printed, a$(32) is the top right 
hand corner of the screen, a$(352) is somewhere in the middle. 

There is no reason why you should not initialize a$ by defining a 
character for all 704 of its elements: your program would be very 
long but you could always use the two program technique (see 
"Fort-Data" and "Fortress") if you run short of memory. However 
there are short cuts. 

You will probably find that most characters of a drawing are 
whole squares, i.e. CHR$ 128 or CHR$ 143. Not only are these 
characters exactly the same (with INK and PAPER colors reversed), 
they are also exactly the same as CHR$ 32 which is the default 
character put into every element of a$ when it is DIMensioned. The 
only characters which need be inserted into the array are the incom- 
plete squares. 
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In writing this program, I first wrote down the numbers 129 to 
135, and then counted through the squares of the graph paper 
drawing from 1 to 704. Each time a graphic character, other than a 
whole square, was encountered, I wrote down this alongside the 
appropriate character code. 

This list became DATA lines 129 to 135 of the program, and lines 
10 to 80 were added to READ the data into a$ and print it on the 
screen. 


MRRIL'' 


1 BORDER 1: CLS 

5 LET x-9999 

18 DIM a$c?ü45 

28 РОК 3=129 TO 135 

38 RESTORE 3 

48 READ a: IF a=x THEM 50 TO 8 

58 LET a$#la)=CHR$ 3 

66 GO TO 48 

7@ NEXT 3 

86 PRINT at 

129 DATA 57.165, 306,331. 332. 356., 371, 456. 527, 553,555, 588, 
597,617,618,651,х 

138 DATA 197,202., 232, 308, 336, 340, 361, 367. 373, 428., 460. 462, 
467,559, 560, 563. 595, 657, 6872 x 

131 DATA 81.82. 106, 109, 111, 266, 267. 272, 273. 274, 275, 297, 
298, 299, 307, 330. 525. 526. 503 590, 684. 685. 686, x 

132 DATA 110,383. 384. 329. 337. 383. 469, 523,524 564, 594. 625. 
626,655. x 

133 DATA 37. 122. 137, 149. 154. 181,213,218, 228, 245, 260, 264, 
282, 296, 328, 333. 346. 359. 365, 391, 397. 484, 418, 423. 
424, 453. 474., 501, 515. 5280, 521, 531, 526, 551, 584, 596. 
600, 616, 628, 630. 631,643, 658. 660, 682, 682, x 

134 DATA 265, 335, 65੬,% 

135 DATA 24,84, 117,170,300, 338, 461 463, 497. 499, 556, x 

588 LET k=Q: LET u-8: LET m=24: LET s-32: LET c-48: 
LET y=48: LET r 

518 LET cy=46: 

520 LET пы-30: 

530 LET mw=31: 

548 LET чш=55: 

550 LET mr=26: 

568 LET wr=58: 


570 LET gy=38: LET w%=68: LET cw=47: LET kw-?: 


1000 RESTORE 5888: FOR 3-22528 TO 23231: READ =,b 

1018 FOR k=1 TO b: םאסק‎ 3,а: LET j=j+1: NEXT k: LET 53-і 
1028 NEXT 3 

1030 IF INKE'Y$<>"s" THEN GO TO 1838 

1848 SAVE "MARILYN" SCREENS 

1858 STOP 


[continued] 
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5888 
5881 
5882 
5883 
5884 
5885 
5885 
5007 
5886 


5009 
5818 
5811 
5012 
5813 
5814 


5015 
5016 


5017 


5018 
5019 


5020 
5821 
3888 
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DATA с,5,4,18,чс,1,с.12 

DATA съ, 1,У,19,ыс,1,с;11 

DATA У, 12, ты, 2,т,1,тУ,1,У,5,с,11 

DATA У, 5, ту, 1; т›2, мы, 1,ыт 1, мы, lom DA ты, 1,8,4,90, 8 

DATA 9,4,90,1,0,11,пш,1,9,4,чс,1,с,10 

DATA cy. 1,ы,4, ыш, 121੧: 180, mu, 1, 9,4, c, 11 

DATA uc.1,9.4,ms,1,.m.18,muw, 1 4, 9c, 1,0, 9 

DATA cw. 1,93. шя, 1, m. 12.mu, 9 

DATA cw. lo 4o 3o wm, l. km lom, 1710੧: 1, md, km, 1, m, 2, km, 1. 
m iw 1,94, uc, 1,c.9 

DATA 44u 1, lm, 1, am 2; kmo tems 2o my, 2: was 1, 2, 1, 9m, 2, 
ш,2,4,4,с,10 

DATA s&u Lkw 1; u^ 15 ka 1^2 1, um; 1o m» 1, wm, d, les, 1, 
kw +, 4, uc, 1,0, 8 

DATA cys 1. ੩੭2: ੩੫: lom Sawm 1 :0- 1 , mw Lto Swm 1,955. 0,18 

DATA cys 1,9. і, yw. 1:0:5:00 1:0:6:00:1-%-1,9੩,4-੩੦: 1, c. 18 

DATA ੩੭2: ws 1, шт, 1›т,3› wm, 1 ..8 

DATA съ, 1 2 wm 1 mo 3 кш, 4. m» S, wr, tous 1› 09: 159, do uco 1. 
c11 

DATA У, 2, ш, 1,т, Bo kms lomo leas lw 1,0੩2 1 4C, 12 

DATA сы, 15 4. sus Lwm Lm loi 341੧੪ 1410੪ own, larm, is 
т»3,ш,1,ш,1,4,5,чс,1,с,12 

DATA cs, 1,У,1, wm 1, т, Lnr torus Lu 2 ru, lom. toms 2 
wm 1.08. 1 ,,4 

DATA .טס‎ 1.₪.1.0,2.07.3,0.3,0₪.2,09,1.95.1,90,2.00 ,5 

DATA съ, 1. ws Lwm 1m: Esmu Lwm lom, .פש.1‎ 1 +1. 
0.7 

DATA со,1,өш,1,шп,1,0-3,тш,1,ша,1,пш,1,ш,2,шә,1,9,2,с,19 

DATA сш, і, м, 1, тш, dom, dous. 1 ,8 

SAVE "MARILYN" LINE 8 
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The Attributes 


The next stage was to read through the graph paper drawing again, 
this time looking at the colors in each square. 

Again you could use 704 statements to POKE each color com- 
bination into the Attributes file, but again there are short cuts. 

Very often you will find that there are large blocks of color in 
your drawing, so it is easier to list the attributes of one square, 
followed by the number of squares for which these same attributes 
persist. 

DATA lines 5000 to 5021 represent the attributes of the entire 
screen using this method. Notice that variable names are used in 
place of the actual attribute values. Lines 500 to 570, declaring the 
values of these variables, were added later, by consulting the pro- 
gram “ATTR Table”. 

Finally, lines 1000 to 1021 were added to READ the attributes 
data into the Attributes file, and the screen drawing was complete. 

As with all the programs in Art for Art’s Sake, “Marilyn” is 
intended as a demonstration, but once you have mastered the 
techniques, try creating your own Timex Sinclair portrait gallery. 

Line 1040 allows you to save the picture without the program 
which created it (use LOAD "MARILYN"SCREENS to reproduce 
the picture at any time), or you can use the machine code routine 
“Pages” to store it for instant recall. 
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PAINTING BY NUMBERS 


This is a much simpler program than “Marilyn”—the picture is 
created without using the Display file at all. It is composed entirely 
of “blanks,” but because the blanks have a different PAPER color, 
the illusion of a picture is created! (If you don’t believe that the 
picture is an illusion, try to copy it onto the T/S printer). 

All you have to do is press the number key corresponding to the 
color you want to paint. 

The BEEP tells you when the program is ready for another key 
press. 


PAINTING BY NUMBERS 


CLS : PRINT "55555775555555555555555565555556" 
PRINT "S55557777555555555557777556566565" 
PRINT "22222777775555555577775555666655" 
PRINT "6666627775557 7 755557 7996566666666" 
PRINT "44444625555777755555555555666655" 
PRINT “1111146257777 ?555555555556566565" 
PRINT "33333146255775445555775565555556" 
PRINT "555552314625555424477777655555445" 
PRINT "55424521462555544244777755544244" 
18 PRINT "54444553145254454445427755554442" 
11 PRINT "44245555314624240584244555545244" 
12 PRINT "24444555314625445054445542444858" 
13 PRINT "44454455314625555055555554424405" 
14 PRINT "05044245314625555055555445444204" 
15 PRINT "50544444314625555055555444050405" 
16 PRINT "505525553146255550555555255й55й5" 
17 PRINT "40444444444444444044444444404404" 
18 PRINT "40444444444444444044444444404404" 
19 PRINT "48444441111114444444444444404484" 
28 PRINT "40444111111111114444444444404444" 
21 PRINT "48441111111111111114444444404444" 
22 PRINT "40111111111111111111114444404444" 
58 LET 3%="01234567" 
188 BEEP .1.28 
185 LET i$-IHMKEY$: IF is="#" THEN GO TO 185 
118 FOR e-1 TO 8: IF if=a$te) THEN GO TO 128 
115 NEXT e: GO TO 185 
128 BEEP .1,58: FOR 3=8 TO 21: FOR k=@ TO 31 
125 IF SCREEN$ (ji k)=i$ THEN PRINT RT j,k; PAPER 
YAL i$;CHR$ 32 
138 NEXT К: NEXT 3 
135 LET а%сюо-“Ж": IF аф= "ЖЖЖЖЖЖЖЖ" THEN STOP 
148 GO TO 108 
9888 SAYE "PAINTING" LINE 8 
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STARS AND STRIPES 


You are faced with an immediate mathematical problem when 
attempting to draw the American flag on the Timex Sinclair screen. 
The stars section of the flag is nine characters deep (assuming that 
you are using the asterisk character as a star, which seems logical). 
But adjacent to these nine characters there are only seven rows of 
stripes, and seven into nine just does not go. 

You must therefore think in terms of pixels rather than charac- 
ters. The stars reach a depth of 9 x 8=72 pixels; all right so seven 
into seventy-two does not go either, but it is a lot less objectionable 
to make one stripe two pixels deeper than the others than it is to 
have two extra stripes in the flag. 

So, the top stripe is 12 pixels deep, and all the others are 10 
pixels. You could create them using PLOT and DRAW statements, 
but I have chosen to use the normal Timex Sinclair graphics, plus 
two User Defined Graphics (CHR$ 144 = 6 rows of PAPER pixels 
and 2 of INK; CHR$ 145= 2 rows of PAPER and 6 of INK). 

The DATA for the User Defined Graphics is in line 500. DATA 
line 1000 contains the CODEs of the characters used to print the 
stripes. 


STARS & STRIPES 


5 BORDER @: PAPER 7: CLS 

18 RESTORE : FOR j=USR CHRE 144 TO USR CHR$ 144+15: 
READ a: םאסק‎ 3:3: NEXT j 

15 LET s$-"k Ж Ж k Ж €": REM spaces between asterisks 

26 LET t#=" "+s#< TO 185 

25 PRINT PAPER 1; INK ?;:s$^t$/s$^t$^s$^t$/s$^t$/sf 

38 DIM р%(52 

35 FOR 3=8 TO 16: READ a 

48 FOR k=11#¢i¢=3> TO 26: PRINT PAPER 7%636162: INK 2; 
AT j kiCHR$ aj: NEXT k: PRINT PAPER Bik$ 

45 NEXT j: DIM b$(32) 

58 FOR j=@ TO 4: PRINT PAPER 8;b$: NEXT 3 

68 GO TO 8 

58੪8 DATA 8,8-8.8-8.8-2355- 255. 8. 8. 255. 255. 25੩ , 255,255. 255 

1888 DATA 143. 131 .144. 143. 123. 145. 131. 144. 143. 123. 145.131. 
144,143, 128. 1 

3888 SAYE "FLAG" LINE ü 
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TUNES 1 AND 2 


There is a joke in the English Timex Sinclair manual (at least I hope it 
is a joke) where they ask you to write a program to play the whole of 
the Mahler's first symphony. 

That is a pretty formidable task, especially if you have to enter 
every single note as a separate BEEP statement, which is the method 
the manual uses. 

It would be slightly easier if you used DATA statements to 
specify the duration and pitch of each BEEP, as in "Tune 1." 

"Tune 2" uses SEPARATE DATA statements to hold duration 
(lines 100—) and pitch (lines 200—), and the data is read into arrays 
before the tune is played. 

This method may seem clumsy, but it makes composing very 
much simpler; you can decide on the pitch of the notes first, and add 
the duration later. 

Incidentally, neither of these tunes is by Mahler, but, with luck, 
you may recognize them. (At least, if you are as old as me, you may 
recognize them.) 


TUNE 1 


5 RESTORE 
18 READ w-d: BEEP 4/5,ю: GO TO 18 


188 DATA 12,2,12,2,9,3,9, 1,9, 2, 50 2, 86,2, 8 

118 DATA 9,1,5,1,9,1,9, 2,5, 2, 5,2, 2,2, 6,2,0, 1,0, 1,2, 2,5, 3, 
7,1,5,1й 

128 DATA 12.2,12,2,9,2,10,2, 9,2, 5, 2,0, 1,06, 1, 2, 1,5, 3, 5o 2, 
7.18 

138 DATA 5,2,5,4,2,1,2,1,2,2,0,2,5,2,5,3,2,1,2,2,0,4,2,2, 
5,2,Ұ,2,5,18 


9008 SAYE "TUNE 1" LINE 8 
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TUNE 2 


5 DIM ੧੬57: DIM ੩੯੪5੭ 

18 RESTORE 188: FOR 3-1 TO 65: READ юз): NEXT J 
15 RESTORE 288: FOR TO 65: READ 443): NEXT j 
28 FOR k=1 TO 5: FOR j=1 TO 65 

25 BEEP 4(2/5,ю(32 

38 NEXT j 

35 PAUSE 20: NEXT k: STOP 

108 DATA 7,7,7,7,7,7,7,9,7,9,11 

118 DATA 14,14,14,14,14,14,12,11,2, 2, 5,9 

128 DATA 7,7,7,7,7,7,.7,7,9,7,9,11 

138 DATA 14,14,14,14,14,12,11,9,39 

148 DATA 14,14.14,14,14.14,14,14.14,14,14,14, 14 
158 DATA 11,12.14,14,12,11,9,7 

288 DATA 2,1,3,2,1,3,2,1.3,2,18 

218 DATA 1,1,2,2,2,1,3,2,2,2,2,2 

228 DATA 2,2,2,2,2.3,1,2.4,1,1,1й 

236 DATA 1,1,4,2,2,2,2,2,8 

248 DATA 1,1.1,3,2.1,1,2,2,2,2,2,4 

258 DATA 1.1,6,2.2,2,12,8 

9888 SAYE "TUNE 2" LINE 6 


E 2 


a 


Under the 
Spreading 
Chestnut Tree 


Ш BULLS AND COWS 

Ш HANGDATA/HANGMAN 
Ш HANGMAN 

Ш SIMON SAYS 

₪ SKETCHPAD 
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BULLS AND COWS 


The programs in this section are almost as old as computers them- 
selves, and they are all based on precomputer ideas which have 
been around since the beginning of time. If I saw a book which 
included these programs I would say, “Oh no, hasn't this writer got 
any imagination at all.” Of course, if everybody felt this way, then 
nobody would ever publish these programs, and they would be- 
come so rare that everybody would want to publish them. 

But while the program ideas are as old as the hills, the programs 
themselves are all newly written especially for the Timex Sinclair. 
Furthermore, they are all examples of how I have approached these 
particular ideas; different programs may have achieved similar re- 
sults by using totally different approaches. 

“Bulls and Cows” is the old code-breaker game, which is also 
known by countless other names. The Timex Sinclair creates a code 
consisting of any four of the six colors (excluding black and white). 
Duplicate colors are allowed. 

You have ten “guesses” in which to break the code. Use the keys 
1 to 6 corresponding to the six colors, to enter your “guess.” 

The Timex Sinclair marks each “guess” by awarding you a black 
mark for each correct color in the correct position, and a white mark 
for each correct color in an incorrect position. 

Notice I have used the word “guess” in quotes. This is purely a 
game of skill; all your previous guesses and marks remain on screen, 
so you should always be able to deduce the code in less than 10 
guesses. In fact the game has been extensively analysed and it has 
been proved to be possible to crack any code in not more than 5 
guesses. 


Under the Spreading Chestnut Tree 


BULLS & COWS 
5 RESTORE: pm 3=8 TO 7: READ е: POKE LISE CHR$ 144+3.6: 
EX 


З T PAPER 7: INK 9: CLS 
: DIM bt4): 
RAHDOMI ZE 
1 TO 4: LET а(532-ІНТ ХЕНОЖ62+1: NEXT j 
E PRINT =; TRE 


HKETÉ 

OR i$>"6" THEN 
YAL i$;CHR$ 14: 
Ev$ THEN GO 
3578 it: LET 
PRINT CHRE 32 


GO SUE 8 


тай 
੯ h=1 TO 4 
=cíh) THEN GO SUB 6 


NEXT h: 

PRINT: PRINT 

IF NOT w THEN BEEP .5,2: GO TO 8 

FOR TO 3: BEEP ‚1,5: NEXT j 

LET +1: IF 56=18 THEN GO TO 6 

PRINT "You have failed to break code:-" 

PRINT TRE FOR ізі TO 4: PRINT INK аСз›;ОНЕ% 143; 
К j: NEXT J 

"P to plas asain: M to stor 

THEN RUH 

THEN STOP 


lak 


SAA PRINT CARS 143; CHR$ 
LET 06358: LET +1: RETURN 

੬88 PRINT CHR$ 144;CHR$ 32;: BEEF .81,38: LET 63: 
LET 2੧੧੭=8: LET ю=ю+1: RETURN 

700 PRINT AT s#2.93 INK 2; FLASH 1;"CORRECT IN "is 

718 GO TQ 328 

1888 DATA 255, 129.129, 123. 123, 122. 129,255 

9060 SAVE "БӘС" LINE ਨ 


: BEEF .@1,5@: LET 63: 


99 
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HANGDATA/HANGMAN 


Don’t try and tell me that you haven't got a Hangman program 
already. There seems to be one in every computer book you look at. 

The main difference is that this version also employs a data-file 
of words, so that you can play the game for a considerable length of 
time without employing a second person to enter another word for 
you to guess. 

“Hangdata” is the data-file set up program. You can enter as 
many words as you like, the only constraints being the Timex 
Sinclair’s memory size and your patience. I suspect that the latter of 
these will usually be the limiting factor. 

Words should not be more than 32 characters long, but may 
include spaces, hyphens, or, if you want to be really evil, even 
graphics characters. 

To avoid problems caused by upper and lower case letters, 
however, “Hangdata” includes a routine (line 70) to convert lower to 
upper case. “Hangman” also includes similar routines (lines 110 and 
180). 

Once you have entered your words, they are saved on tape, to 
be loaded automatically by the “Hangman” program. 

Ideally, therefore, your “Hangman” tape should contain a copy 
of “Hangman,” followed immediately by a data-file created by 
“Hangdata.” However, there is no limit to the number of data-files 
you can create, and it is a good idea to build up a library of data-files 
containing various levels of difficulty for different age groups. 


HANGDATA 


18 PRINT "How mans words do you want to"""enter?" 
28 INPUT n: CLS 
за DIM u$tnt1,335: LET w#C13=STR$ n 


"Enter word &";j-1;"' 
LEN t$: IF NOT 1 OR THEN GO TO 50 
TO l: IF t$<k>>=" 


AND t$ík)<="z" THEN LET 
НЕФ (CODE +2 
›<СНЕ% 32 THEN GO TO 5੪ 


tt 


=CHRS$ 1%%% 
3 t£: HEXT j 
128 SAVE "data" DATA w$<) 


3668 CLEAR : SAYE "HANGDATA" LINE 8 
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HANGMAN 


This version sticks so closely to the original pencil and paper version 
that few words of explanation are necessary. 

The man and gallows are drawn line by line, and you are dead 
when the drawing is complete. (11 incorrect guesses). 

The two data statements (lines 1000 and 1010) contain the PLOT 
and DRAW coordinates for the hangman drawing. There are two 
PLOT and two DRAW coordinates for each line, except for the head, 
which (surprise, surprise), is drawn by the CIRCLE statement in line 
2000. 

If you fail to guess the word, the missing letters are flashed on 
screen (lines 510 to 530). 

When you have used up all the words, you may either: 


Enter RUN to load a new data-file 

or 
Enter GO TO 10 to repeat the same words (in a different 
order). 

HANGMAN 


5 LOAD "data" DATA ufi? 
8 BORDER 4: PAPER 4: INK 9 


="P" THEN GO TO 30 


LET w=INT ¢RND¥rnd +š 
OF 3-1 TO u: IF ש=₪%32‎ THEN GO TO 35 


2: LET 1= LEN tt 
: PRINT AT Huren 45: NEXT j: LET j-8 


CHR 32 THEN GO TO 8 
THEM LET i#=CHR# “CODE i$-32) 


FOR k=1 10 1 
+ THEM PRINT זה‎ 8,21%: LET х=й: LET t$Clo- 
: LET Feret 


11 THEN GO TO 588 

=] THEN GO TO Єйй 

-i$ OR INKEY$=CHR$ (CODE i$+32> THEN 
E 


[continued] 
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588 PRINT AT 15,15; FLASH 1; INK 2; PAPER 7; "FAILURE" 

518 FOR k=1 TO 1 

528 IF ੧$੧੭੯੭6॥੧੬ 8 THEN PRINT AT G,k; FLASH 1; INK 2; 
PAPER 7; t£(k) 

538 ЧЕХТ К е 

540 IF ੫੨੧! THEN PRINT АТ 21,2; "੧ WORDS HAYE BEEN USED": 
50 Т0 9999 

558 PRINT AT 21,0; "੧੬੩੨ P TO PLAY AGAIN: X TQ STOP" 

568 IF INKEY$="p" OR INKEY$="P" THEN GO TO 25 

570 IF IHKEY#="x" OR INKEY$="X" THEN GO TO 9999 

588 GO TO 5੬8 

588 PRINT AT 15,15; FLASH 1; INK 2; PAPER 7; "SUCCESS" 

618 GO TO 548 

1888 DATA 16,40,48,0,40.40,8,72,40,112,24,0,64,112,0,-18, 
48,186,12.12 

1818 DATA 64,96,6,64,90,0,-24,64,66,-8.-12,64,66,8,-12,64, 
82,-12,2,64,82,12,2 

2888 FERD akr IF ј=6 THEN READ c: CIRCLE a,b,c: GO TO 
2626 

2818 PLOT a,b: READ cd: DRAW c.d 

2020 RETURN 

9888 CLEAR : SAYE "HRNGMRN" LINE ₪ 

9399 STOP 


SIMON SAYS 


In the traditional version of Simon Says, you had to repeat every- 
thing that Simon did, which could lead to some very bizarre situa- 
tions. 

The computer version is a lot more dignified. Simon (Timex 
Sinclair) gives an ever-lengthening sequence of colors, and you 
must repeat the sequence (using the color keys 0 to 7). 

Each color has an associated tone, and the color is flashed on 
screen ina position corresponding to its keyboard position, so if you 
want to make the game really difficult, try playing it on a black and 
white television (my best score this way is 4). 

On a color television, of course, it is possible to achieve much 
higher scores. However, the game is more than a simple test of 
memory because, as the sequence lengthens, the speed increases 
dramatically. 

Subroutine 1000 flashes the colors and makes the BEEP. 

The time variable, t, varies inversely with the length of the 
sequence. 
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If (when) you make an error, line 510 repeats the sequence, after 
setting t to a constant 0.8 seconds, and calling the subroutine at line 
1005 instead of line 1000. 


SIMON SAYS 


5 BORDER 7: PAPER 7: INK 9: BRIGHT 8: CLS : DIM b$(32) 

18 RANDOMI 

15 LET rf 

20 LET x-INT «(RNDX8) 

25 LET r$-rf*STR$ x 

36 LET 

З5 FOR 

48 LET x=YAL r$CGi 

45 GO SUB 1888 

58 NEXT 3 

188 PRINT RT 20,0; "МОИ YOU REPEAT THE SEQUENCE" 

1@5 FOR ізі TO n 

118 LET i$-I 

115 IF i$C"Q" OR 1$>"7" THEN GO TO 116 

128 LET x=YAL 1% 

125 GO SUB 1888 

138 IF IMKEV$-i$ THEN GO TO 130 

135 IF 1і%<2ғ%%32 THEN GO TO 588 

148 NEXT 3 

145 PRINT AT 28,8;b$;RT 20,0;"Total so far: "in 

158 FOR 3=1 TO 188: NEXT 3 

155 CLS : GO TO 28 

588 PRINT RT 28,80; INK 9; FLASH 1; "ERROR!!!!! The sequence 
was" 

585 FOR ісі TO 258: -NEXT j 

518 LET t=.8: FOR j=1 TO n: LET x=YAL r$<j): GO SUB 1005: 
NEXT j 

515 PRINT RT 28,8;b$;RT 28, 8; "тоц scored "in-1’"Press 
""R"" to try asain" 

526 IF INKEY$<>"r" THEN GO TO 8 

538 RUN 

1888 LET t=1/n 

1885 PRINT AT 6.x#3+30%¢(x=6); INK x; BRIGHT 1;CHR$ 1432: 
BEEF t.x#7+56%(x=@): PRINT CHR# 8;CHR$ 32 

1818 RETURH 

988੪ SAVE "SIMON SAYS" LINE 8 
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SKETCHPAD 


Why people spend hundreds of dollars on a computer and then use 
it as a sketchpad, I will never know. Still, these programs are fun, 
and you can create some very good pictures with the Timex Sin- 
clair’s high resolution graphics. 

In this program, a spot cursor indicates the current DRAW 
position. The arrow keys 5 to 8 will cause a line to be drawn in the 
appropriate direction. 

You can move the cursor about, without drawing, by pressing 
key “1” which will cause the cursor to flash, and then using keys 5 to 
8 as before. In this mode, the cursor will also pass through previous- 
ly drawn lines without erasing them. To start drawing again, press 
key “0” to obtain the normal cursor. 

To erase а line, press key “0” (you would think the Timex 
Sinclair was short of keys, the way I have given key “0” two com- 
pletely different functions), and the direction keys will now un- 
draw. Press key “0” again to return to the normal mode. 

One interesting point to notice—this has nothing to do with 
“Sketchpad”, but it just happens that this is the only program where 
Ihave used this technique. 

If you put the operating instructions to a program into a REM 
statement at the end, you can LIST this line during the program (see 
line 1) and then continue. I do not know if this has any advantages 
over simply PRINTing the instructions, but it is something that most 
other computers will not do, so I had to use it somewhere. 
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SKETCHPAD 


1 BORDER ਨ: INK 8: PAPER 7: CLS : LIST 9999 
5 IF INKEY$<>"r" THEN GO TO 5 
18 LET move=@: LET retain=@ 
PAPER 8: BORDER 8: IHK 7: CLS 
: LET 8 
: LET ч=й 

: LET vi=zy+yi 
G" THEM LET move=NOT move: LET retain=@ 
1" THEN LET move-1: LET retain-l 
₪" THEN GO TO 45 
58 LET x=¢CINKEY$s"6")¥Cx1 0255) =1 CINKEYS="5" ¥ 
2825 
INKEYS="?" #012175) (->> INKEVS="6" # 
(912822 
੬8 IF retain-i AND POINT <х1,ч12-і THEN GO TO Зӣ 
65 PLOT OVER 6;хі,чі 
70 IF move=1THEN PLOT OVER 1;xi,ul 
75 GO TO 36 
9888 SAYE "SKETCHPRD" LINE 8 
9993 REM Use arrow keys to draw. 

Use key 1 to reposition 
cursor. Use key @ to delete. 

Use keu 8 to switch off 
delete/rerosition functions. 


Press R to RUN 


10 


Play It 
Again Sam 


₪ SKYLINE 

Ш GAUNTLET 

Ш FLYING SAUCERS 
Ш FIREPOWER 
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SKYLINE 


You are the commander of an alien space craft about to land on 
Earth. Choosing some large modern city like London or New York, 
in the over-optimistic belief that you might find some sort of intelli- 
gent life there, you make your approach. You fail completely to 
notice the perfectly good airfields in the vicinity, and head directly 
for the center of town. 

The skyscrapers could present something of a problem but 
assuming them to be nothing but heaps of rubble (a natural enough 
mistake), you decide to do Earthlings a favor by flattening them and 
creating a new landing strip. 

There are three ways in which you can destroy the skyscapers 
(one story at a time): 


a) with bombs (key “0”) 
b) with missiles (key “9”) 
с) by crashing into a skyscraper with one of your ships. 


This last method is not recommended, as you only have four 
ships with which to effect a successful landing. 

The prime objective of the game is to flatten all the skyscrapers, 
thereby enabling one of your ships to land. Points are of secondary 
importance only. It is no use having a high score if all four of your 
ships have crashed. However, you cannot fire a missile unless you 
have a positive score. 

Points are scored as follows: 


1 for each story of a skyscraper destroyed by a bomb 
—20 for using a missile 
—20 for crashing a ship 


Bonus points for a successful landing: 


400 for landing ship number one 
300 for landing ship number two, etc. 


Bombs, therefore, are your most important weapon; they al- 
ways fall vertically, but of course they can miss (which wastes time). 
Missiles are expensive weapons, to be used in emergencies only 
(and then only if you have a positive score to enable you to use 
them). Missiles are fired horizontally, but they never miss. If there is 
not a skyscraper directly ahead of you, they will wrap around the 
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screen until they eventually hit one. Your ship’s descent is frozen 
while a missile is in the air, so you may sometimes use them to give 
yourself a few seconds breathing space to plan your strategy. 


Program Notes 
The four User Defined Graphics are: 


CHR$ 144 & CHR$ 145: Your ship 
CHR$ 146: Bomb 
CHR$ 147: A skyscraper story 


The skyline is created by lines 105 to 130. Array %() holds the 
position of the individual skyscraper blocks, and as stories are 
destroyed the contents of the array are changed accordingly. The 
program does not PEEK the screen, which in any case is virtually 
impossible on the Timex Sinclair, or use ATTR or SCREEN$ to 
determine the presence of a skyscraper block, but merely compares 
the position of your ship/bomb/missile with the equivalent element 
of t$. 

The main program loop (ship descent) is from line 200 to line 360 
(or to line 250 while you are in the top half of the screen, above the 
top of the skyscrapers). Lines 365 to 390 represent a ship crash. 

Subroutine 1000 prints the bomb position, with lines 1100 to 
1115 indicating a hit. 

Routine 2000 prints the missile position, in exactly the same way 
as the main ship descent loop, and it is not left until an eventual hit 
(line 2050). (Note: Line 2045 is a piece of idiot-proofing. There is 
obviously no need to waste points by firing a missile once all the 
skyscrapers have been destroyed, but in case anybody does, this 
line terminates the routine when the missile reaches the bottom 
right hand corner of the screen.) 


Making the Game Easier/Harder 


The density of the skyscrapers is controlled by the limit value of k in 
line 120. Having k=1 TO 3 will tend to make the skyline less dense; 
k=1 TO 5 will tend to make it more dense. 

Line 225 prevents the bomb button from working every time 
when you are just about to land. This adds a little last minute panic 
to the game, as you may be forced to use missiles to destroy some of 
the bottom stories. If you find this too frustrating, you can delete the 
line completely. 
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To change the number of ships, change line 385. To change the 
scoring, see lines: 375 (crash); 1100 (bombs); 2005 (missiles); 5000 
(bonus). 


SKYLINE 


1 DATA 0,255, 127.255, 166,255, 127.255 

2 DATA 0,192,240,252,191,252,248.192 

3 DATA 42,62,28,62,62,62,28,8 

4 DATA 255,255, 195. 135: 195, 195, 255, 255 

5 DATA 8.8. 132. 198, 255. 132,0 

TO 5: RESTORE s 

15 FOR 358 TO ? 

28 READ a: POKE USR CHR$ de+143)+i,a 

25 NEXT i 

38 NEXT s 

48 LET s$-CHR$ 32+CHR$ 144+CHR$ 145: LET b$=CHR$ 146 

5@ RANDOMIZE 

1@@ BORDER 5: PAPER 8: INK 6: CLS 

105 DIM t$c11,325 

118 FOR 3-11 TO 21 

115 IF 2211 THEN LET ++%3-102=+%63-11( 

128 FOR kam 4: LET t#$<j-18, CINT <ЕМІЖЗ22%122-СНЕ% 147: 

xT k 

125 PRINT INK ?;RT 3,0:+%63-10( 

138 NEXT 3 

135 PRINT AT 8.2: INK Z;¿"WERPONS: 3-Missile @=Bomb" 

288 LET sc=@: LET 8 

205 LET x=sl#2+2: LET : LET bf-ü 

218 PRINT RT 1,8; INK 4; "SCORE:";sc,"SHIPS LOST:";sl 

215 PRINT RT ust 

226 IF INKEY$="6" AND bf-B THEN LET bf-1: LET bx-x: 
LET by=y: ВЕЕР .@1,25 

225 IF bf THEN IF x=2@ THEN LET bf=INT (RNI$2) 

238 IF INKEY$="9" AND 5628 THEN GO TO 2888 

235 IF bf THEN GO SUB 1888 

388 LET ч=з+1 

385 IF y=32 THEN LET y=@: LET x=x+1 

318 IF %=21 AND u-38 THEN GO TO 5888 

356 IF x<11 THEN GO TO @ 

355 LET а=х-1@: LET b=ə+3: IF b>32 THEN LET h=b-32: 
LET +1 

366 IF t#(a,b)<>CHRS 147 THEN GO TO 218 

365 FOR ED @ STEP-1: PRINT RT х,ч; INK kis#: BEEF .1,К: 

A 

37ü LET t#(a,b=CHRE 32 

375 LET sl=sl+1: LET ੩੦=੩੦-2੪ 

388 IF bf=1 THEN PRINT AT bx,bu;CHR$ 32 

385 IF sl=4 THEN GO ТО 4888 

398 GO סד‎ 5 

1888 PRINT AT bx. busCHR 32 

1085 IF bx-21 THEN GO TO 1636 

1818 LET bx=bx+1 

1815 IF рх<11 THEN GO TO 1825 

1828 IF t$ibx-18.bw-1)-CHR$ 147 THEN GO TO 1188 
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1825 
1838 


1848 
1188 
1185 


1118 
1115 
2888 
2885 
2016 
2815 
2828 
2025 
2838 
2035 
2048 
2845 


2858 
2@55 
4888 
4885 
5888 


5885 
Sein 


5015 
5626 
5025 
5838 
9888 


PRINT INK 27੧7 bx, 6੩੭65 

IF bx=21 THEN BEEP .й5,5: PRINT AT bx. bysCHR$ 32: 
LET bf=8 

RETURH 

LET sc=sc+1 

LET b#=0: LET %%(рх-10,рыжіо2-СНК% 32: PRINT AT bx. bys 
CHR$ 32 

BEEP .@1,35 

RETURN 

LET a=x: LET b=ə+3: IF ₪231 THEN LET b=b-32: LET a=ə+1 

LET sc=sc-20 

IF а>=11 THEN GO TO 2848 

PRINT AT х,ы; INK 1+¢b/2=INT ੧੪2੭); ਫੜ 

PRINT RT a,b; INK S;CHR$ 148 

BEEP .01,40 

PRINT AT avb;CHR$ 32 

LET b-b*i: IF b=32 THEN LET b=@: LET а=а+1 

IF atii THEN GO TO 2015 

IF tfca-18,b+12=CHR$ 147 THEN LET %%<а-10,р%12-СНК% 32: 
PRINT AT a.b;CHR$ 32: ВЕЕР 1,35: GO TO 218 

IF a-21 AND b-31 THEN GO TO 218 

GO TO 2015 

PRINT RT 10.10; INK 2; PAPER 7; FLASH 1; "ALL SHIPS LOST" 

GO TO 5818 

PRINT RT 10,13; INK 2; PAPER 7; FLASH 1; "SUCCESS": 
LET sc=sc+100k(4-s1) 

PRINT AT 1,8; INK 8; PAPER 8; FLASH 1; "SCORE "isc 

PRINT AT 15,5; PAPER 7; INK 2;"Press ""P"" to play 
asain" ;AT 17,18; "or ""X"" to stor" 

IF INKEY$="x" THEN GO TO 5838 

IF INKEY$="e" THEN RUN 48 

GO TO 5015 

PAPER 5: INK 8: CLS : PRINT AT 10,15; "BYE": STOP 

SAVE "SKYLINE" LINE @ 
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GAUNTLET 


“Gauntlet” is what I call a “War Game for Pacifists.” You are under 
constant attack but you yourself are unable to attack the enemy in 
any way. You must try to avoid defeat merely by using your various 
defense mechanisms. 

Your space ship starts at the top left of the screen and travels to 
and fro until finally it lands at the bottom left of the screen. (Note the 
reverse of direction in this game, as opposed to the wrap-around of 
“Skyline.”) 

The bad guys operate the laser guns at the bottom of the screen. 
Being hit by a laser does not, in itself, destroy your ship, but it does 
deplete your energy reserves, which are the key to this game. You 
start with 1000 energy units, and these are used up one by one as 
you cross the screen. You can collect additional units at the green 
cross stations at various points on your descent, so if you can avoid 
the laser beams you should be able to land safely. 


Defense Mechanisms 


The following mechanisms will all afford you a certain degree of 
protection against the lasers, but they all consume energy; 


Key Energy cost Effect 

0 5 units Reduces the effective RANGE of the lasers. 
9 10 units Reduces the FREQUENCY of laser shots. 
8 20 units Increases the speed of your ships. 


Program Notes 


The program uses two User Defined Graphics, one for a ship travel- 
ing to the right, one for a ship traveling to the left. 

The rapid laser shots are produced by the DRAW commands in 
subroutine 1000. 

A hit is deleted by the ATTR function in line 1015. The ship is 
drawn in INK 6, the laser beam in INK 2. Therefore the laser beam 
will change the attributes of the ship’s position from 6 to 2 if there is a 
hit. 

The length of each laser is determined by variable 1, (normally 
144 pixels, but reduced when INKEY$=“0", line 60) 

The laser to be fired is determined by the random number x (line 
1000), and when x exceeds 6, no shotis fired. The random number 15 
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in the range 1 to t, so the higher the value of t, the smaller the 
possibility of a shot. The variable t is initially set to 7, for almost 
constant firing, and is increased when ІМКЕҮ%-”9”, line 55. 


GAUNTLET 


1 RESTORE: FOR 3=8 TO 23: READ a: РОКЕ USR (CHR$ 1442+3, а: 
NEXT j 

5 BORDER @: PAPER @: INK 7: CLS 

1@ RANDOMIZE 

15 LET ੬=1888: PRINT "ENERGY LEFT "je 


25 FOR j=3 TO 18 STEP 3: PRINT AT 3,0; INK 4;CHR$ 146; 
AT 4,31; INK 4;CHR$ 146; AT 21,4%3/3: INK 3; 

: NEXT j 

35 LET s$-CHR$ (144%<а/2<21ҢТ 63/2332 

48 IF ੩੯੪ THEN LET езй 

45 PRINT AT 6,12;e;CHR$ 32;CHR$ 32: IF e=0 THEN GO TO 588 

58 PRINT ЯТ ab; INK 6;5% 

55 LET t-?: IF INKEY$="9" THEN LET e-e-18: LET t=4#t+RND#1@ 

68 LET 1-144: IF INKEY$="6" THEN LET е=е-5: LET 1= 
INT «ЕМІ%144241 

65 GO SUB 1888 

76 LET anza: LET bn-b 

75 IF INKEY$="S" THEN LET e-e-28: LET bn-bn-244*5s$-CHR$ 144) 

88 LET bnebni-1+2#¢s$=CHR# 144): IF ੧੧੨੩1 OR bnga THEN 
LET an=anti: LET bn=31#¢s$=CHRS 144): IF an-28 
THEN GO TO 558 

85 PRINT AT avb;CHR$ 32 

: IF ATTR fanskrii=4 THEN LET e=e+INT (੧10%1887 

21,55 

=. LET b=bn: GO ТО 35 

500 PRINT AT 3.3; INK 2; FLASH 1 "SHIP DESTROYED" 

518 FOR TO 8 STEF -1: PRINT AT ask; INK j; BRIGHT 1; 

: BEEP .5,3%8: NEXT j 

520 GO TO ੬88 

550 PRINT AT 3.1; INK 4; FLASH 1: "990 LANDED SAFELY. WELL 
DONE" 

੬88 INPUT "Erter P to plas : X to stop "ist 

610 IF s$-"p" THEN RUN 15 

626 IF s$-"x" THEN GO TO 9999 

636 GO TO 688 

1666 LET x-INT Кын. IF ੨੭੬ THEN PAUSE 5: RETURN 

1885 LET x 

1818 PLOT INK 0 

1815 LET c-8: DRAW OVER 1; ІНК 228,1: IF ATTR а, ,6 
THEN LET c=1 

1626 BEEF .81. 1/3 

1025 IF с THEN PRINT FLASH 1; PAPER 2;RT avbi"k": ВЕЕР 1.28: 
LET е=е-ІНТ ੧੧੧0%5੪8੭-188 

1838 PLOT OVER 1; INK 9: DRAW OVER 1; INK 220,1 

1835 RETURN 


4,112,255.112,224,8,68,8,7,14. 255.14, 7, 8. 8, 
S. 255., 255. 255, 60. 60 

SAYE "GAUNTLET" БІНЕ 8 

STOP 
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FLYING SAUCERS 


In “Skyline” you had all the weapons and the defenders had none. 
In “Gauntlet” the defenders had them all, and you had none. Isn’t it 
about time for a more evenly matched contest? 

In this game, you operate the missile bases on the ground, but 
instead of flying passively overhead, the enemy flying saucers hurl 
bombs at you constantly. What is more, while your shots must be 
fired vertically upward, the saucers have the annoying ability to aim 
diagonally in your direction. They also use invisible saucers from 
time to time, which are not easy to hit but which can earn you bonus 
points. Oh, and just to make it difficult, the rings of the saucers are 
ethereal; you must make a direct hit on the body of the saucer to 
score. Your base, on the other hand, is very vulnerable, and you can 
easily run sideways into bombs which would otherwise have 
missed. 

Your control keys are “8” and “9” to move left and right, and “0” 
to fire. The game is over when 50 saucers have successfully passed 
overhead, and of course you win if, by that time, you have scored 
more hits than them. You should not despair if you are miles behind 
with only a few saucers to go. Every time you score a hit, the saucer 
count is not incremented, and a new saucer is launched on the same 
flightpath as the one you have just hit. Thus it is possible, with skill, 
to get into a rhythm and score a large number of hits before a saucer 
makes a successful pass. 


Program Notes 
The User Defined Graphics are: 


CHR$ 144: Missile base 


CHR$ 145 & CHR$ 146: Flying saucer. 


The main program loop is from line 1015 to line 1055. Saucers are 
launched at coordinates a,b which are both randomly determined in 
line 1005. 

The color (INK) of the saucers is also random, and is largely 
irrelevant, except that blue INK on blue PAPER will create the invisi- 
ble saucers. 
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Subroutine 100 (called twice in the main loop—remember this from 
“Practice Game”) moves the missile base. 

Subroutine 100 prints new stars (see below). 

Subroutine 5000 prints your missiles. 

Subroutine 6000 prints the bombs. 


Strategy 


The stars in this game are very important, and are more than just a 
pretty backdrop for the action. 

You cannot have more than one missile in the air at any one 
time, so time is wasted while you wait for a missile to either hit 
something or to reach the top of the screen. Stars act as useful 
targets, in that they will destroy your wayward missiles, allowing 
you another shot. (Hitting a star does not, of course, score any 
points, and the star itself is also destroyed.) On the other hand, stars 
between you and the saucers will prevent you from getting a clear 
shot at your real target. Strategic play should therefore entail en- 
deavoring to retain a blanket of stars in the upper sky, and des- 
troying those nearer the ground. Often it is worth spending the 
early part of the game ignoring the saucers (but avoiding their 
bombs) and simply trying to create a favorable star pattern. 

However, the stars have no effect on the enemy, and both 
saucers and bombs can pass them with impunity. They do destroy 
the stars they pass, however, which may work to your advantage. 
Also, remember that up to ten new stars are formed each time a 
saucer is launched. 


FLYING SAUCERS 


1 RESTORE: FOR SR CHR 144 ТО USR CHR$ 1444; 
READ а: םאסק‎ 1,а: NEXT 3 

5 BORDER 1: PAPER 1: INK CLS 

18 FOR k-1 TO 18: GO SUB 8568: NEXT k 

15 LET s$ 32+CHR# 145+CHR$ 146 

28 LET bf-B: : > 


‹=15: LET ==8: 


AUCERS LAUNCHED" ; 


25 PRINT AT ; 
si TAB 15insi TAB + 


TAB 
38 50 SUB 86 Go TO 1888 
166 LET (+t INKEY$="9" AND xLS13-CINKEY$="S" AND хойо 
118 IF x<>x1 THEN PRINT AT 21,3; CHR$ 32;AT 21,x1; INK 6; 
НЕФ 144: LET x=xi 
126 IF INKET$="G" AND mf-B8 THEN LET +1 
138 RETURN 


1888 GO SUB 8 
[continued] 
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1885 LET a=INT (RNI#10): LET b=IHT (ЕМШІЖІЙ»: LET а=17-а: 
LET i-IHT > +1 

1818 LET nz-nsti: PRINT זה‎ 1,15; PAPER Sins: IF n 
THEN 50 TO тай 

IF bf-B THEN LET bf-1: LET bx-ati: LET u=5GH сх 
LET bsu=b+a 

IF hei THEN LET Һ=@ 

PRINT AT a,b; INK 

IF bf THEN GO SUB 

THEN GO SUE 

8 188 

641: IF b-38 THEN PRINT AT a,36;CHR$ 32;CHR+ 32: 


a 


GO 502 8 


GO SUB 188 
1855 GO Tü 1815 
5888 PRINT AT bx Бы; СНЕ 32: LET b; 
5885 IF kwit OR ₪ 1 THEN LET рыш 
5818 IF bx=22 THEN GO TO 5858 
5813 PRINT AT bx.bu;".": RETURN 
5@5@ LET h=@: IF ABS ੯69੩-%੭੯= 
: PRINT AT 1, 
FOR j 


: LET by=byty 


ж: LET hed: 
Z-LEM STR$ t; PAPER + 
" TO 1 STEP -1: PRINT AT bx, bus 


58੪੩ LET bf-8: RETURN 
6606 IF mf-1 THEN LET mx= 
6885 PRINT RT .א‎ my; СНЕ LET mx=mx-1: IF SCREENS 
£mx,ms)-CHR$ 46 OR mx-2 THEN GO TO ੬858 
੬818 PRINT AT тх, шы) "1" 
6015 IF тх<>а THEN GO TO 6040 
6828 IF my<>b+2 THEN GO TO 6848 
6625 LET s=s+1: FOR 3-6 TO 1 STEP -1: PRINT AT a.b; INK j; 
"kkk": НЕХТ j: BEEP .5,30 
6838 IF ізі THEN LET s=s+4 
6835 PRINT AT 1,8; PAPER 8:5: LET mf=-1: 
++1: БЕТПЕН 
: IF mxco2 AND ATTR dmx,my?=8 THEN LET b+#=0 
6855 PRINT AT mx.;ma;CHR# 32 
6868 RETURH 
7888 PRINT זה‎ 1.12; FLASH 1; INK 2; PAPER Fj "GAME OVER": 
LET wes 
788੩ IF t>s THEN LET ш=+ 
7016 PRINT AT 1.¢32- LEN STR ;כש=+2%6+‎ FLASH 1; PAPER 7; 
INK ₪ 
7015 IF t=s THEN PRINT AT 1.6; FLASH 1; PAPER 7; INK Bis 
7626 INPUT "PRESS ""ENTER"" TO ЕИН"; 5+ 
7825 RUN 18 
S888 DATA 8,8,28,28,62,62,12Ұ7,127,.1,3,7,255,7,3,1,0, 
128, 192,224,255, 224, 192, 12੩48 
8566 FOR 3-1 TO 18: PRINT AT INT СЕМр#185+2,1НТ 
SRND#329; INK 7;".": NEXT j: RETURN 
੪੬੪8੪ PRINT AT 21.x; INK 6;CHR$ 144: RETURN 
3068 SAYE "SAUCERS" LINE а 


LET b-ü 
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FIREPOWER 


Finally, a totally different type of space game. 

In the previous three games, the TV screen gave you an armchair 
view of the action. In “Firepower,” you are actually in control of 
your spaceship’s laser gun, and the screen shows the view through 
your sights. 

You have sixty seconds to shoot down as many enemy ships as 
you can by catching them directly in your sights (two points) or in 
the cross wires (one point). 

A cross wire hit does not destroy the enemy, and therefore it 
should be possible to score: 

Three points for every vertically traveling ship (by catching it 
first in your top cross-wire, and then, immediately afterwards, in 
the center of your sights. 

Two points for every diagonally traveling ship, by either making 
a direct hit, or catching it with two successive cross-wire shots. (The 
first method is preferable, as otherwise you will still not have de- 
stroyed the ship even after the second hit, and you will waste time 
waiting for it to reach the end of the screen.) 

You cannot outrun the enemy in this game, so positioning is of 
paramount importance. Do not chase forlornly after distant ships, 
but concentrate on reaching a strategic position ready for the next 
one. 
Use keys “5,” “6,” “7” and “8” to move your sights. Use key “0” 
to fire only for cross-wire shots. Firing is automatic when you have a 
ship directly in your sights. 


Program Notes 


There is one User Defined Graphic only: the enemy ship. 

The sights are formed by the four characters in array a$(). The 
rest of the array is empty, so that printing the entire array causes the 
cross-wires to appear on the screen. 

The timing is achieved by lines 35 (to initialize), 100 and 105. As 
in all programs which use the System Variable FRAMES for accurate 
timing, the division factor in line 100 should be equivalent to your 
AC outlet frequency (see note on page XX). 
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FIREPOWER 


5 FOR j=USR CHR$ 144 TO USR CHR$ 144%7: READ а: POKE j.a: 
NEXT 3 

18 DIM a$#(65): LET a$(12=CHR$ 124: LET a$t32)=CHR$ 45: 
LET a$#(34)=CHR#$ 45: LET a$(650-CHRf 124 

15 BORDER 5: PAPER 5: INK @: OVER 1: CLS 

28 FOR 5-1 TO 50: PRINT AT INT <RND#22>, INT (RADXK32); 
:"א"‎ NEXT j 

25 LET s-ü 

38 LET x-11: LET y=15 

35 POKE 23673,@: POKE 23672.8 

48 LET +8 

45 LET р-й 

108 LET ti=INT (¿PEEK 23673%256+PEEK 2367222/60) 

105 IF t<>t1 THEN BEEP .81,t: LET +=+1 

118 PRINT AT 8,80; OVER B;"SCORE "is, "TIME "st 

115 IF t>=6@ THEN GO TO 1888 

128 IF NOT b THEN LET b-INT <ЕМІЖЗ12%1: LET a=1: LET 
@=INT CRNIX35-1: GO TO 138 

125 PRINT AT a-bsCHR$ 144: LET а=а+1: LET b=b+d 

138 IF a-21 OR р-й OR b-32 THEN LET b-8: GO TO 288 

135 PRINT AT ab; INK 6;CHR$ 144 

208 PRINT AT х,ч; INK 8;а% 

285 LET :ש+1(%22+א6=₪‎ LET ei=ak22+b: IF ю=ю1 THEN BEEP 
1,50: LET s=st2: PRINT AT a,b;CHR$ 144: LET b=@: 
60 TO 226 

218 IF INKEY$<>"G" THEN GO TO 228 

215 IF ABS (ю-ю12-1 OR RBS (ю-юі2-22 THEN BEEP ,5,58: 
LET s=s+1 

220 LET xi=x+CINKEY$="6" AND x<€199-<INKEY$="7" AND ੨੭੪੭ 

225 LET yl=y+CINKEY$="8" AND u(SO)-CINKEY$="S" AND ੪21? 

238 PRINT AT х,ч; INK 8;а% 

235 LET x=x1: LET y=ul 

248 GO TO 188 

1808 PRINT OVER Q; FLASH 1; PAPER 2; INK 7;AT 10,12; 
"GAME OVER"; FLASH 6;RT 21,5; "PRESS ""R"" TO 
PLAY AGAIN" 

1005 IF INKEY$="r" THEN RUN 

1818 GO ТО 1885 

5888 DATA 0,68, 8 

9888 SAYE "FIREPOWER" LINE 8 


Computers 


What сап І do with 
my Timex Sinclair 2068? 


With this practical guide, 


$12.95 


the answer is “a lot!” 


This simple, step-by-step guide makes program- 
ming your Timex Sinclair 2068 easy! It contains 
50 ready-to-use programs—instructional, enjoy- 
able, and useful programs that let you get the 
most out of all the graphics, sound, and color 
capabilities this affordable, portable computer 
has to offer. 


You don’t need any previous computer experi- 
ence to get these programs running! The book's 
self-paced format teaches by example, with full 
program listings and explanatory notes. Roger 
Valentine begins by introducing the TS 20685 
character set, color, sound, and timing functions. 
He then reveals a world of game programs and 
subroutines for two- and three-dimensional mov- 
ing graphics, intellectual puzzles, computer 
music, and space and other arcade games. 


After you’ve had some fun, you can move on to 
more sophisticated applications—data files, com- 
putation, even word processing, and sales 
records and invoices...plus a section of accessi- 
ble machine code routines you can use to write 
your own programs. Program notes help you see 
and understand the structure and techniques 
used in each program as you key it in. 


More than two million people have learned 
to program, use, and enjoy microcomputers 
with Wiley paperback guides. Look for them 
at your favorite bookshop or computer 
store. 


WILEY PRESS 
a division of JOHN WILEY & SONS, Inc. 
605 Third Avenue, New York, N.Y. 10158 


New York‘ Chichester‘ Brisbane - 
Toronto Singapore 


ISBN 0 471-88300-X 


Pressed for time? 

All 50 programs are available on a convenient 
cassette—ready to run and error-free. Buy it at 
your local computer store, or use the order card 
inside. 


Roger Valentine is co-founder of V&H Computer 
Services, a software development firm, and is the 
author of Spectrum Spectacular CoCo Dragon 
Extravaganza, and What Can | Do With My Timex 
Sinclair 1000? His articles and programs have 
appeared in Practical Computing, Personal Com- 
puting Today, and other popular journals. 


